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البرجة بلغة البيسك وبعض تطبیقاتها 
فى الرياضيات 


تالف 
خوازین سيدا فتاح سعاده حسن علي البرزنجي 
قسم الریاضیات 


كلية العلوم 
جامعنة صلاح الدين 


بسم الله الرحمن.الرحیم 
المقدمة 


في السنين الاخيرة اصبحت الحاسبات الالكترونية تحتل مكانة بارزة في الجالات 
المختلفة حيث انها تمثل سمة مميزة لعصرنا الحاضر . فدخلت في الجالات العلمية ء 
الصناعية ء الاقتصادية و العسكرية نظرا لا توفرها للانسان من سرعة فائقة و دقة 
متناهية في انجاز العديد من العمليات الحسابية وقدرتها على حفظ و استرجاع 
العلومات في الوقت المناسب لاتخاذ القرارات المناسبة . 

ان التطور الكبير الذي شهدته الحاسبات الالكترونية ساهمت بشكل فعال على 
حل كثير من المعضلات التي كانت حلها سابقا و بدون الحاسبات الالكترونية امراة 
صعبا جدا ان لم يكن مستحيلا ومنها المعضلات الرياضية . 

لقد رأينا من الضروري іе,‏ بعض المسائل البسيطة و المعقدة التي сай‏ 
مواضيع مختلفة في الرياضيات للاستفادة منها وخاصة لطلبة الصفوف الاولی في اقسام 
الرياضيات » الاحصاء والاقسام العلمية الاخری في كليات العلوم » التربية » 
الادارة ç‏ . 

يتضمن هذا الكتاب ثمانية فصول . الفصل الاول يتناول دراسة الاجزاء 
الرئيسية للحاسبة و اللغات المستخدمة والانظمة العددية المختلفة . اما الفصل الثاني 
فيتضمن الخوارزميات والمخططات الانسيابية وامثلة متنوعة . 
وني الفصل الثالث تم عرض اساسيات لغة البيسك والرموز المستخدمة بالاضافة الى 
شرح التعابير الحسابية والمنطقية . 
خصص الفصل الرابع لعرض اهم الايعازات التنفيذية وغير التنفيذية في لغة البيسك. 

اما الفصل الخامس فيتناول شرحا مختصرا للمصفوفات وكيفية التعبير عنها بلغة 
البيسك ودورها في تبسيط كثير من المسائل الرياضية مع امثلة رياضية متنوعة . 


الفصل السادس يناقش البرامج الفرعية بانواعها ومدق الاستفادة من هذه 
البرامج لتبسيط المسائل العقجة او التى تتضمن تكرارات في السالة الواحدة . 
اما الفصل السابع خصص لعرض مجموعة اخرى من الايعازات المهمة والاوامر 
المستخدمة في لغة البيسك . 

وفى الفصل الثامن والاخير تم وضع مجموعة مختلفة من البرامج المحلولة التي 
تتناول مسائل رياضية بحتة والتی تمت تنفيذ معضمها على الحاسبات الشخصية 
الوركاء . 


البرمجة بلغة البيسك وبسض تطبيقاتها في الر یاضیات 
المقدمة 
الفصل الاول : الحاسبة الالکتر ونية و اجزائها الرئيسية 
1.1 ما هي الحاسبة الالكترونية 
1.2 لغات às. JI‏ 
1.2.1 لغات الستوی الواطي 
1.2.2 لغات المستوى العالى 


1.3 الانظمة العددية 
1.3.1 النظام العشري 
1.3.2 النظام الثنائي 
1.3.3 النظام الثماني 
1.3.4 النظام السادس p‏ 

مارین 


الفصل الثاني : الخوار زميات والخططات الانسيابية 


2.1 الخوارزميات 
2.2 الخططات الانسيابية 
2.3 امثلة 

تمارین 


الفصل الثالث : لغة البيسك واساسيات لغة البيسك 


3.1 لغة البيسك 

3.2 اساسيات لغة البيسك 
2:22 الرموز 
3.2.2 الثوابت والتغیرات 


الفصل الرابع 


P > > > =‏ إلى p‏ مم مم امم 
ы мн‏ ح ہم ہ ہ ло‏ 


іл ы UQ تج‎ = 


الفصل ا خامس 
5.1 


5.2 
5.3 


العملیات والتعابير الحسابية 
التعابير المنطقية 
الايعازات في لغة البيسك 
تمارين 


: الايعازات في لغة البیسك 


ГЕТ ايعاز‎ 

READ - DATA , INPUT ايعازات‎ 
PRINT ایعاز‎ 
REM ایعاز‎ 
END ایعاز‎ 

ایعازات السيطرة 

СОТО ч 

IF -THEN дай 
ON - GOTO Аы 
FOR - NEXT ایعاز‎ 
امثلة‎ 

— 

: الصفوفات 

مصفوفة ذات بعد واحد 
مصعوفه دات بعدین 
امثلة 


تمارين 


الفصل السادس : البرامج الفرعية 44 


6.1 البرامج الكتبية ۱۰۱ 
6.2 الدوال الفرعية vt‏ 
6.3 الروتينيات الفرعية 7 
А 6.4‏ 
7 4.\ 
الفصل السابع : ایعازات اخریٰ والاوامر في لغة البيسك ومفاتيح تھی 
1 ایعازات اخری ى А‏ البيسك ۱۱۷ 
RESTORE jll 1‏ ۱۹۷ 
ТАВ 2л 2‏ ۱۷ 
7.1.3 ایعاز SPC‏ ۱۳۱ 
7.1.4 ايعازات MID$.RIGHT$,LEFT$‏ ۱۳۱ 
d.e:‏ ایعاز LOCATE‏ ۱۳۳ 
7.2 الاوامر فى لغة البيسك ۱۳ 
2.2.1 الامر AL LIST‏ 
7.2.2 امسر RUN‏ 0 
7.2.3 لامر SAVE‏ ۱۲۵ 
LOAD У 7.2.4‏ ۱۳9 
5 لامر d NEW‏ 
7.2.6 لامر o DELETE‏ 
7.2.7 الامہے {ч KILL‏ 
تمارين ۱۳۸ 
الفصل الثامن : امثلة متنوعة في الر یاضیات ۱۳۹ 


الفصل الاول 


ea E امحاسبة الالکاترونية‎ 


1 ماهيالحاسبة الالكترونة 

الحاسبة عبارة عن مجموعة من الاجهزة الالكترونية المختلفة . يقوم كل جهاز 
باداء وظيفة خاصة وله القدرة على اتباع مجموعة من التعليمات INSTRUC-‏ ( 
TIONS )‏ لمعالجة الرموز ) (SYMBOLS‏ . لذلك تعتبر الحاسبة اداة فعالة في 
حل المسائل وبسرعة فائقة . 

ليست للحاسبة الالكترونية Жа јар‏ به كا يعتقد البعض АШ)‏ مجرد الة 
حيث انها لايمكنها من القيام باية عملية حسابية كانت ام مبرمجة ما لم يكن هناك من 
يقدم اليها المعلومات والاوامر ومن هنا GU‏ ضرورة اتقان هذه التعليمات ليتم توجيه: 


اهاز بالشکل الصحیح ЗЕ‏ الطلوت Я‏ 


اجزاء الحاسبة الالکتر ونية THE COMPUTER DEVICES‏ 
dame “=‏ الا الالكترونية من الوحدات الرئيسة الال 


INPUT DEVICES وحدة الادخسال‎ -1 


تعتبر هذه الوحدة حلقة الوصل بين الانسان والجهاز . يتم من خلال هذه 
الا جهزة ادخال المعلومات والبيانات والاوامر الى الوحدات الاخرى للجهاز „Ез‏ 
توجد انواع محتلفة من اجهزة الادخال ولکن اکثرها انتشارا في الوقت الحاضر هي 
لوحة المفاتيح BOARD‏ ۷ هي تشبه الالة الكاتبة ر الطادعة ) في تکوینها 
الخارجي Я‏ 
2 وحدة المعالجة المركزية CENTRAL PROCESSING UNIT‏ 


تعتبر هذه الوحدة الجزء الرئيسى فی ا حاسبة . وهي الوحدة المسؤولة عن الراقبة 
والتحكم في سير المعلومات وتنفيذ العمليات الحسابية والنطقية داخل الجهاز e‏ لذا 
فهي تعتبر دماغ الحاسبة الالکتر 423 


تکون هده الوحدة من الوحدات الفرعية التالية : - 
5 وحيلة السيطرة CONTROL UNIT‏ 


تفوم هده الوحدة بالسيطرة والتحكم في تنفیذ التعليمات الي یتضمہا البرنامج 
عن طريق تفسير تعليمات البرنامج ومن ثم اصدار الاشارات اللازمة للوحدات 
الختلفة لحد هذه التعلیمات وتتحکم ف بقية مکونات اظائب وتنسق Маа‏ . 


ب روج دة اخسات والتطتق ARITHMETIC AND LOGIC UNIT‏ 


تقوم هذه الوحده بتنفيد العملیات الحسابية الجمع . الطرح . الضرب و 
القسمة . وكذلك تقوم بمعالجة العملیات المنطقية التي يحتويها البرنامج . 


ج - وحدة الخسزن ( الذاكرة ( MEMORY UNIT‏ 


الذاكرة هي ذلك الجزء من الحاسبة الالكترونية التي تختص بتخزين البيانات 
والاوامر التي تدخل للجهاز » وهي عبارة عن محزن الكتروني مقسم الى وحدات 
خزن صغيرة تنظم فيه المعلومات بشكل يمكن الرجوع اليه بسهولة وبسرعة فائقة . 

يمكن تمثيل وحدة التخزين الاساسية ظاهريا وكانها مستطيل مقسم الى مجموعة 
س الساحات وكل مساحة تسمئ ,2 LOCATION‏ . يخصص JUN‏ 
جزء معين من البيانات ويعطئ لکل موضع رقم او اسم یسمی العنوان 
5 والوضم الواحد j‏ الوحدة الاساسية التي تقيس الذاكرة ويعرف 
باسم الكلمة ) JS, ( WORD‏ كلمة مقسمة الى عدد متساو من الاجزاء وكل جزء 
يسمئ > ) CELL‏ ( ويختلف هذا العدد من جهاز ال > وتعرف هذه الوحدة 
باسم البايت BYTE)‏ ( وتتكون كل بايت من 8 خلايا تسمئ بت (ВІТ)‏ 


( بایہ 


وددلك توجد وحدة قياس اكبر تسمی كيلوبايت KELOBYTE‏ حيث ان 
KELOBYTE = 1024 BYTE‏ 1 


130 قلنا ان سعة الحاسبة تساوي ( )28 ) فهذه تعني ان ذاکرتها تسم28 1024ж‏ 
بایت من العلومات وتختلف سعة الحاسبة من جهاز الى جهاز اخر . 
بصورة عامة O SS‏ الذاكرة في معظم الحاسبات الدقيقة من جزئین رئیسین احدهما 
یسمی ذاكرة القراءة READ ONLY MEMORY ) hà‏ ) او (КОМ)‏ 
یسمی الثاني داکرة الوصول RANDOM ACCESS MEMORY) ¿II‏ ) 
, او RAM)‏ ) یستخدم الاول لخزن برامج التشغیل . ویستخدم الثاني لخزن 
البرامج العامة . 

لايمكن استخدام الذاكرة الرئيسية للخزن الطویل للبیانات او البرامج ودلك لان 
الذاكرة الرئيسية سعتها محددة بالاضافة الى ان ما 05€ في الذاكرة من بیانات وبرامج 
معرصه للضیاع بسبب‌انقطاع التيار الکهر بائي وبعض المؤثرات الفيزياوية او اسباب 
اخریٰ . لذا فان من الضرورى استخدام اوساط اخرى لخزن البیانات والبرامج بعد 
نقلها من الذاكرة وتعاد اليها عند الحاجة . تسمی هذه الاوساط بالذاكرة الساعدة 
(AUXILLARY MEMORY )‏ ومن هذه الاوساط الاقراص . الاسطانات 
؛ الاشرطة الممغنطة . . الخ . 


OUTPUT UNIT 3-وحدة الاخراج‎ 


تقوم هده الوحدة باستخراج المعلومات والنتائج الي حصب علیها ا حاسة بعد 
تنفيذ البرنامج الى الوسط الخارجي . توجد انواع حتلفة من اجهزة الاخراج ولكن 
اكثرها استخداما هى الطابعة اخطية LINE PRINTER‏ . 


يمكن توضيح الوحدات الرئيسية للحاسبة وكيفية ترابط عمل كل وحدة بالاخرق 


بالشكل التالي : - 


المر 55 بة 


а س س س مک‎ о «м» «в «ме. e еа 


وحدة الاخر Е‏ 


“ғ‏ نو «ме‏ لد سد مد «шы «жы‏ _ ود — «ше‏ — — — — — — — سے 


اي ان عمل الحاسبة الالکترونية يتم على مراحل : - 


1 - استقبال العلومات عن طریق وحدة الادخال . 

2- خزن هذه العلومات في الذاكرة . 

2-3 استخراج العلومات مہ الذاکرة عند الحاجة . 

4- اجراء العملیات الحسابية وا اذ القرارات النطقية . 

5- استخراج النتائج الى الوسط الخارجي عن طريق وحدة LAYI‏ 


التعامل مع الحاسبة الالکتر ونية 

يتركز التعامل مع الحاسية الالکترونية بصورة عامه à‏ شطرین اساسین عثلان 
تکاملا لاداء وتنفيذ العمليات الحسابية والنطقية ‏ و ما : - 
1۔البرامعیسات SOFTWARE‏ 


عبارة عن دراسة تفاصیل المسألة الراد معالجتها ووضع البرامج التي تؤدي di‏ حل 
المسألة . وبأختصار فان البراجیات هي البرامج واللغات المستخدمة في LLS‏ 


. البرنامج‎ 
HARD WARE 2-الممدات‎ 


ра‏ الاجزاء الداخلة في ترکیب وعمل الجهاز . ومن اهم هذه العدات 
الوحدات التي O SS‏ منها الحاسبة الالکترونية . 


PROGRAMING LANGUAGES لغت البريحجة‎ 2 


ان لغات ie JI‏ هي وسيلة تعامل الانسان مع الحاسية الالکترونیة لذا يجب ان 
تكون هذه اللغات مفهومة للطرفين الانصان والجهاز. تتكون لغة البريحة من مجموعة 
من المفردات اللغوية التي J‏ شفرة ( CODE‏ ) معينة يفهمها الجهاز . ويتم 
التعبير عن هذه الشفرة اما على شكل ارقام تسمئ شفرة رقمية او على شكل رموز: 
وتسمئ شفرة رمزية او على شكل كلمات محفوظة داخل الجهاز وتسمئ كلمات 
محفوظة ) (RESERVED WORD‏ . 
باستخدام هذه الرموز او الارقام او الکلمات يكن للحاسبة الالکترونية ترکیب 
مجموعة من التعلیمات او الاوامر التي يمكن اهاز فهمها وترجتها وبالتالي تنفيذها А‏ 
مجموعة التعلیمات والاوامر التسلسلة منطقیا لحل مسألة ماتسمی البرنامج . 
يمكن تقسیم لغات الحاسبة الى : pou"‏ 


pola. A ہہ‎ 
V? tot. 


nno CONEY 


MB ! 


LOW LEVEL LANGUAGES м» لغات الستوي‎ 1.2.1 


وتصمن : 
لف الالے MACHINE LANGUAGE‏ 


وهی اللغة الوحيدة التی یفهمها الجهاز ویستخدمها للاتصال بين وحداته 
الختلفة ء تفتلف هذه 2 حاسبةالمى !=> وذلك حسب ترکیبها الداخل — 
ان لک лал а а‏ الصاهره ال مسب ali‏ شين азы‏ 
النظام الثنائي فان لغة الالة تعتمد على شفرة رقمية (NUMERIC CODE)‏ 
تتکون من الارقام 0 , 1 ( صفر ء واحد ) اي ان کل الکلمات والارشادات والرموز 
تتم ترجتها الى الارقام 1,0 . 


ب —— 
تستخدم هذه اللغة شفرات رمزية بدلا من الشفرات الرقمية وتختلف هذه 
الشفرات من جهاز اخر وذلك حسب نوع وتصمیم اهاز . البرنامج الکتوب 
هذه ААШ‏ یعرف باسم البرنامج المصدري(.۲1800 (SOURCE‏ والذي يحتاج 
الى الترجمة الى برنامج بلغة الالة والذي یعرف باسم البرنامج ا مدنی OBJEC-‏ 
TIVE PROG‏ ليتم تنفيذه » وتتم عملية الترجمة من خلال برنامج خاص یعرف 
بالجمع ( (ASSEMBLER‏ . 


[eed [=] مس‎ == 


БИ‏ الب 4 oiy‏ اللغات تحتاج ال مهارات وخبرات ومعرفة بالجهاز الستخدم نما 
یشکل صعوبة في تعلم هذه اللغات » لذا كان من الضروري ايجاد لغة او لغات معينة 
تصلح مع معظم الاجهزة + ومن هذه اللغات لغات الستوي العالي . 


2 للفات ذات الستوي العالسي 
HIGH LEVEL LANGUAGES‏ 


لتلافی صعوبة البرمجة باللغات الواطثة لغير الراغبین بالالام بالتفاصیل الدقيقة 
للجهاز ЈА)‏ تم وضع لغات خاصة لتصمیم البرامج بشکل بسیط وغیر مرتبط 
بالترکیب الداخلی للجهاز + بحیث يستطيع البرمج برمجة السالة JS‏ سهولة بعد 
معرفته للامکانیات التوفرة للجهاز وکذلك الا ام بقواعد واساسیات البرمجة ہذہ 
اللغات . 

يحتاج البرنامج الکتوب مهذه اللغات الى ترجمته الى برنامج بلغة IYI‏ من خلال 
برنامج خاص یعرف بالترجم ) (COMPILER‏ . 


AA — Fa 


اي تتم ترجمة البرنامج الصدري الى ا هدفي من خلال الترجم + وتتم عملية الترجمة 
هذه من قبل ا جھاز نفسه . 

لقد تعددت اللغات ذات المستوي العالي نتيجة لتعدد طبيعة المسائل والتطبيقات 
التي يمكن استخدام الحاسب في حلها ء لقد ظهرت لغات للتطبيقات العلمية واخری 
للمسائل التجارية واخرى لمعالحة كميات كبيرة من البيانات الخ . . . 


ومن آبرز هذه اللغات : 

1 ۔لغة القورتران (FORTRAN LANG.)‏ تستخدم هذه اللغة لحل السائل 
العلمية وافندسية . 

2 لغة الکوبول (COBOL LANG.)‏ تستخدم في التطبیقات التجارية . 
3 لغة الکول (. ALGOL LANG‏ ( : تستخدم في التطبیقات العلمية . 

4 له ة البيسك BASIC LANG.)‏ ) : وهی اللغة البسيطة والستخدمة 
للاغراض العامة . l‏ 


NUMERIC SYSTEMS الانظمة العسددية‎ 3 


ان كتابة البرنامج بلغات الحاسبة تحتاج الى دراسة الانظمة العددية المختلفة . 
والواقع ان لغات المستوي اللعالی تتطلب منا معرفة النظام العشري المتعارف عليه في 
حياتنا اليومية ء اما الانظمة الاخری فهي غير اساسية بالنسبة Ú‏ والتي تعتبر لغة 


البيسك واحدة منها š‏ 

اما لغات الستوي الواطي PU‏ تستخدم انظمة متعددة وحسب نوع الجهاز . 
في يلي مجموعة من الانظمة الستخدمة : 
3.1. 1النظضام المشري_ DECIMAL SYSTEM‏ 


یسمی هذا النظام احیانا بالنظام الوسع ویتکون من عشرة رموز حتلفة وهي 
9 ...2,۰ :0,1 وان الاساس هذا النظام هو العدد( 10 )(یعتمد عددوموز اي 
نظام على اساس النظام ) ۰ تکتب الاعداد في هذا النظام باستخدام هذه الرموز 
استنادا الى ترکیب معين وکا يلي : 
العدد الصحيح یتکون من عدد من الراتب ز من اليمين الى اليساز ) وهي الاحاد » 
العشرات . الثات . الالوف ۰ ... العدد في الرتبة (E‏ ( الاحاد ( یکون 


مضروبا في "10 ء والعدد في المرتبة الثانية ( العشرات6مضروبا في101 » والعدد في 
خرتبة الثالثة ( المئات ) مضروبا في102 . . . وهكذا.. وان جموع حواصل ضرب 
عشرات مختلفة الاس في المعاملات التي يتكون منہا العدد تساوي العدد في النظام 
العشري . 


مثال 


العدد 125 بالنظان العشري يكتب بالشكل التالي 
في المرتبة الاو 10 * 5 =5 الاحاد 
في المرتبة الثانية 10 * 2= 2 العشرات 
a‏ الثالثة 102 1-۱ المات 
?10'«5«10« 2 +102 * 1 - . , 125 


а)” 
مثال‎ 
: العدد 23 . 571 يكتب بالنظام العشري ( الموسع ) بالشكل التالي‎ 
الجزء الصحيح بالنظام العشري‎ 
2 1 0 
571 =z - 10 + 72 = lÜ + 1 w 10 
(107 
Р وت‎ 3 
23 = 2 x 0 + 3 ж 10 
۳ 2 1 ü -1 
Z3 = 5 * 20 + 7 * 10 + 1 =< 10 + 2 x وه‎ 


YN 


مشال 


العدد 007 . بالنظام الوسع يكتب بالشکل التالي : 
3- 2- 1- 
jù‏ ھپ 7 + 10 w 10 + 0 x‏ 0 = 7ءء 
)10( 
2.3.2 [النظام النائسي BINARYSYSTEM‏ 


الرموز الستخدمة في هذا النظام هي الاعداد ОУ‏ والاساس هو 2 . یعتبر هذا 
النظام من اکثر الانظمة الستخدمة في تصمیم الحاسبات الالكترونية في الوقت 
الحاضر ہ اذ ان الحاسبات الالكترونية تعمل بالکهرباء وتعلم ان الدائرة الکهربائية 
o S‏ فی احدی الحالتين » فهى اما متصلة ( ON‏ ( او منفصلة ( OFF‏ ) ويرمز 
ب 0 اذا كانت الدائرة منفصلة و1 اذا كانت متصلة . 
J‏ 


الاعداد التالية هي بالنظام الثنائي 
10101 € 111100 € 10001 
)2( )2( ری 
فیم| يلي استعراض للعملیات الحبرية في النظام الثنائي : 


ADDITION 1-ابمع‎ 


لجمع اي عددین في النظام الثنائي تتبع القواعد التالیه : 


--т---т--- 0 +0 = 0 1 + ن‎ = 1 
+ 0 1 
------4--- ۶ J] = + ше ге 
olo] 0 + 1 1 1 1 10 
ұлы Жал ыса 
J 
لا یجاد ,410010 , 11011 بالنظام الثنائی‎ 


YY 


1 


+ 10010 


11011 + 10010 = 101101 11011 
(2) (2) (2) 


101101 


تبدأ عملية الجمع ( من اليمين الى الیسار ) حيث يجمع کل رقم من العدد الاول مع 
نظیرہ من العدد الثنائي ویکتب الناتج اسفل خط ال حمع . وفي حالة 1+1 والناتج 
هو10 — 0 في نفس العمود ويضاف 1 الى العمود الذي يليه . 


-2- 


SUBTRACTION C الطر‎ 


لطرح اي عددین في النظام :الثنائي تتبع عابي : 


0 - 0 < 0 1-051 
0 - 1 غیرممگز=‎ 1-1-0 
: J 
: ku ناتج‎ У: 
1- 1100101 - 1000011 
(2) (2) ' 
Y 
1160101 
- 1000011 
0100010 


۳۳ 


2- 1000 = ТАЯ 
(2: (2) ' 
2000 
1000 
STI 


0001 


تبدا عملية الطرح ( من اليمين الى الیسار ) حیث یطرح كل رقم من العمود الثاني من 
نظیره من العمود الاول ویکتب الناتج اسفل خط الطرح ‏ وني حالة طرح 0 من 1 
وهو غير مکن یاخذ 1 من العمود الذي يليه ویضاف الى 0 فیصبح 10 ثم یطرح من 
1 ویکون الناتج 1 کم في JU‏ اعلاه . 


MULTIPLICACTION الضرب‎ 3 


لضرب اي عددین في النظام الثنائي تتبع مایلی : 


ж | 0 1 
HON دوگ ات‎ 0 * 0 < 0 1 * 0 =0 
01010 
шыт ИК uud 0ж1-0 1 * 1 = 1 
1 | ۵ | 1 
< السك كدح شب‎ TES 
لامجاد ناتج مان‎ 
1011 x 101 2 نج‎ 
(2) (2) 
1011 ж 101 = 110111 1011 
(2) (2 (2) * 101 
1011 
0000 
1011 
110111 


Yt 


4 -القسمسة 


DIVISION 


عند قسمة اي عددین في النظام الثنائي تتبع مایلی : 


= 1 


مثال 


لا مجاد ناتج مایی : 


11011 | 11 
741 ل 


1001 


ЕЛЕС 


0010 
10 


0000 


1-1 ن 12 2 0 
1001 611- 11011 -1 

(2) (2) (2) 

2- 1001 — 10 = 
(2) (2) 


YO 


3- 11101101 = 1001 = 11010.01.. 
(2: (2) 


2? 


(2) 


1001] 11101101 
--------- 1004 
11010.01.. ---- 


1001 


1001 


0000011 


كما واضح في الامثلة اعلاه ان عمليتي الضرب والقسمة في الاعداد الثنائية مشابه تماما 
لعمليتي الضرب والقسمة في الاعداد العشرية 


ملاحظ 2 


في النظام الثنائي العملیات الحبرية مشابه الى العملیات احبرية في النظام 
العشري مع ملاحظة مايلي : 
1 عند جم 1 + 1 هو10 اي واحد صفر ) ولیس العدد عشرة اي اننا نکتب 0 
ویکون 1 بالید ویضاف الى الرتة التالية . 
2-عند طرح 1 من 0 اي )1 - 0 ) فاننا نطلب 1 من الرتبة التي تلي 0 فتصبح القيمة 
)10( . 
01-3 القسمة على الصفر غير تمكن في النظام الثنائي كما هي ا ال في النظام 
العشري . 


۳۹ 


التحويل من نظام عددي الى نظام عددي اخسر : 
تنفيذ البرنامج . لذا من الضروري معرفة كيفية تحويل اي оде‏ من نظام ما الى نظيره 
فيا يلي موجز للتحويلات من نظام خددي الى اخر : - 


التحويل من النظام الثنائي الى العشري : 


ان تحویل اي ...1 Ісім‏ نام العشرى يتم عن طريق 
معاملات العدد & فان Е 1. Lia‏ العدد في النظام ا | 


مثال 


نظير العدد م1101 بالنظام العشري : = 


3 2 1 0 
x 2‏ 1 + در وھ 1 + 2 ون + 2 * 1 = 1101 


1 + Û + 4 + 8 


13 
(10) 


H 


۳۷ 


مثال 


نظير العدد 110.01 بالنظام العشري : - 


2- 1- ? 1 9 
7 و ۹+ 2 ھ٭ے [ slr‏ ]+ ¥ + ني پ =Ü‏ 110.01 


=Ü + 2 + á +G + 1 / 2 


= 6.25 


التحویل من النظام العشري الى الثنائي : 


١‏ الاعداد الصحيحة 


لتحويل العدذيلا من النظام العشري الى الثنائي يستخدم طريقة القسمة المتكررة على 

الاساس 2 ومن ثم تسجيل الباقي و حسب الخطوات التالية : 

2 اقسم العدد X‏ على الاساس ۰2 واكتب ناتج القسمة X nad‏ العمود 
الاول والباقي R‏ في العمود الثاني مقابل ناتج القسمة 


3- اذا كان ناتج القسمة يساوي صفرا 1 توقف عن اجراء القسمة و اذتب عمود 
الباقي R‏ من الاسفل الى الاعلی في سطر و من الیسار الى اليمين وبالتسلسل . 


YA 


4 اذا کان ناتج القسمة لايساوي صقرا “ 5“( اجراء قسمه العدد في العمود 
الاول على الاساس 2 وكرر نفس الخطوات السابقة . 


مثال 
dos.‏ العدد ی 22 الى النظام الثنائي 


(X=) 22, R 


10110 - 22 ا ی 
)2( )10( 0 | 11 
1 5 
1 2 
0 1 
1 0 
JU‏ 
لتحویل العدد ,150 الى النظام الثنائي R‏ |( 150 
0 | 75 
1 | ?3 
d 5 150 = 10210110‏ 
n (10) (2)‏ 
0 
Q‏ 
1 


فیما يلي جدول الاعداد من 4 الى 10 المكتوية بالنظام العشري و ما یقابلها بالنظام 
дәй‏ 
ي 


ПЕ REE ES ER ء77٣٦‎ 


0 النظام العشرء 
0 النظام UJ‏ 


۳۹ 


ب - الکس‌ور 

1- يتم تحویل الکسور من ШЫЛ‏ العشري الى الثنائي عن طریق عملیات الضرب 
الاعتيادية للکسر في الاساس 2 ویکون العامل صفرا اذا كان حاصل الضرب کسرا 
ويكون العامل هو الحزےء الصحیح من ناتج الضرب اذا كان حاصل الضرب لیس 
كسرا . 

2 - اذا كان ناتج الضرب يساوي عددا صحيحا تتوقف عندئذ عملية الضرب 
وتكتب الناتج من الاعلیٰ الى الاسفل ومن اليسار E‏ اليمين وبالتسلسل . 


مثال 


sue y‏ نظير الكسر ۰750 بالنظام الثنائي 


١ 
10 1 
1.0 1 J 
.11 


( من Je‏ الى الاسفل) : )10( 


T) 
ж 
N 

H ۱۱ II 


شال 


نظير الكسر ۰225 بالنظام الثنائي 


.225 * 2 = .450 0 
.450 * 2 = .900 Ü 
419 x 2727 8 1 
S * 2 = 9 1 
29 и 2 = 1.8 1 
.225 =  ,00111... 


شال 


لتحويل العدد 125 . 57 الى النظام الثنائي 


R 

жі و‎ ۰123 * 2 = . 5 0 
1 .25 ж 2 = 5 0 ) 
0 ده‎ × 2 = 0 1 
0 
1 
1 
1 

111001 1125 = .001 

(2) (10) (2) 
57.125 = 111001.001 
(10) (2) 


1.3.3 النظام المي OCTALSYSTEM‏ 


57 = 


ان عدد الرموز الستخدمة في هذا النظام ثمانية من 0 الى 7 اي , 2, 0,1) 


( ,5,6,7 ,3,4 وان الاساس هو العدد 8. 
امثلة 


العدد ,251 هو بالنظام Qut‏ 


اي ان العدد 251 بالنظام الثماني لايساوي العدد 1 بالنظام العشری . 


التحويل من النظام Qu‏ الى النظام العشري 


ان تحویل الاعداد من النظام الثماني ال النظام العشري یتم بنفس طریقة تحویل 
الاعداد من النظام الثنائي الى العشري وباستخدام الاساس 8 بدلا من 2 . 


مثال 


d 


العدد ,251 بالنظام العشري 


9 1 2 
251 = 1 * 8 + 5 »* 8 + 2 ۶ 8 = 169 


العدد 172.35 بالنظام العشري 


- 1- 2 1 0 | 
#8 5 + چ 3 + 8 ۷ 1 + 8 ۷ 7+ 8 * 2 30 
04 + 3/8 + 64 + 54 + 2 

120 + 3/8 + 4 

120 % 29/64 


التحويل من النظام العشري الى النظام الثماني 

يمكن تحويل الاعداد من النظام العشري الى النظام الثماني بنفس طريقة تحويل 
الاعداد من النظام العشري الى الثنائي وبالقسمة المتكررة على الاساس 8 بدلا من 2 
» وتسجيل الباقي في عمود الباقي (R)‏ 


مشثال 
لتحویل العدد 125ا ی النظام الثماي R‏ | 125 
5 - 125 5 15 
)8( )10( 7 1 
1 0 


YY 


سل 


لتحویل العدد 128.25 الى النظام الثماني 


128 R .25 * 8 = 2.00 2 
еа E .25 = .2 
5 1 (10) (8) 
0 2 
128 = 8 
(10) 8) 
128.25 = 206.2 05] 
(10) (8) 


کیا يمكن تحویل الاعداد من النظام الثماني الى التظام الثنائي وبالعکس . 
الجدول التالي хә‏ الاعداد من 0 الى 7 وما يقايله بالتظام الثنائي : 


7 | 6 |5 | ۸ | ]2 
01 01:04 ۱ ]010[ 01 
شال 


لتحويل العدد ري 25 المكتوب في النظام الثماتي ال ما یقابله في النظام الثنائي 


^ 


2 5 о> eaaa t 
010 | 101 vL! 
25 - 010101 
(8) (2) 


وان )0( 


1 = رم 25 برهن ذلك ؟ 


مثال 
gW‏ 4 |3 |7 
UII‏ 100 | 011 | 111 

734 = 111011100 

) (2) 

м, 

1 يجب كتابة ثلاثة رموز لكل غدد ثنائي في کل حقل ( الرقم 3 هو العدد 011 

ولیس 11  )‏ ثم كتابة العدد القابل من الیسار الى اليمين . 

2 ان طريقة تحویل العدد من الثنائي الى الثماني تتم بالعکس . 

شسال 


سيو سدح са‏ 


تحويل العدد 11100110 الى الثماني يكون بالشكل ٠ QUI‏ 


111001110 الختائي‎ 
3] 4|] 6 c 
11100110 = 346 , 

(2) (8) 


HEXAD ECIMALSYSTEM السادس عشر‎ 6—21 1.3.4 


یتکون هذا النظام من سته عشر رمزا وهي الاعداد من 0,1,2,...,9 
والحروف "1 A, B, C, D, E.‏ وان الاساس لهذا النظام هو العدد 16 


Yt 


ما يلي الرموز في النظام السادس عشر ومایقابلها في ШЫЛ‏ العشری : 


083305000930380 
elile ام اوه اهاداماتا‎ ef c| ol Ef F| 


الحظام العشري 


1 ۔للتحویل من النظام السادس عشر الى النظام العشري نتبع قاعدة الضرب التکرره - 
. وللتحویل من النظام العشري الى النظام السادس عشر نتبع قاعدة القسمة التکررة 
كما هي ا حال فی تحویلات الانظمة الاخری . 

2 للتحویل من النظام السادس عشر الى الثنائي او بالعکس يتم توزيع الرموز الى 
مراتب حيث ان كل رمز او عدد في МАЛ‏ السادس عشر يقابل اربع مراتب في النظام 
الثنائي + وحسب الجدول JUI‏ : 


ropp peppe 0 
ہس سے‎ ejes nerf 03 322 300 ا‎ 


شال 


o <‏ تحويل العدد ,26 . 25۸ الى النظام العشری كما يلي : 


0 1 z = - 
25А.2С =A w 16 + 5 x 16 + 2 ж 16 + 2 w 6 + C * 16 
(16) 


. 1 2 -2 
10916 + 5 ж 16 + 2 ж 16 + 2 x 16 ж 6 


Yo 


JU 


100 1002 1101.0 + ,نم‎ 2 
ТТІ n (16) 


— ان : 
0 يقابل العدد 2 في النظام السادس عشر 
1 يقابل ا حرف GD‏ النظام السادس عشر 
1 يقابل العدد 9 في النظام السادس عشر 
0 يقابل العدد 4 في النظام السادس عشر 


i—i 
. هناك برامج للتحویل بین الانظمة الختلفة ضمن التمارین العامة‎ 


قسارین 
1 جد ناتج ما یل بالنظام الثنائي : 
1101 + .10001 -1 
11100 - 100011 -2 


3- 1110 * 110 
4- 11011 2 1 

2 - حول العدد 1 من النظام العشري الى : 

۱ - الظام الثنائي 

ب ۔ النظام الثمانی 


3- حول العدد 21.175 من النظام الثماني الى النظام العشري . 

4 حول العدد SAB.2C‏ من النظام السادس عشر الى النظام الثنائي 

5 حول العدد 1001101101 من النظام الثنائي الى النظام الثماني ثم الى النظام 
YA.‏ 


الفصل الثاني 


ا خوار زمیات والخططات الانسيابية 


1 الخوار زميات ALGORITHMS‏ 


لقد اشرنا سابقا الى ان الحاسبة الالكترونية تتميز بقدرتها الفائقة في انجاز العمليات 
الحسابية حسب الاوامر والتعليمات المعطاة Ú‏ وكذلك امكانيتها في حفظ المعلومات 
المختلفة والتي يعجز الانسان عن حفظها و استعادتها عند الحاجة . لكنها لا تستطيع 
القيام بشكل ذاتي لحل اي ÍL‏ مهما كانت بسيطة ء لذا من الضروري توضيح 
المسألة قبل البدء بكتابة البرنامج بأي لغة من لغات البرمجة وذلك بوضع خطوات 
متسلسلة ومفهومة وبسيطة لحل المسألة . 


طرق توضيح المسألة 


الخوارزمية 
عبارة عن خطوات متسلسلة ومفهومة لحل المسألة المراد كتابة البرنامج لها او عنی 
اخر الخوارزمية عبارة عن التسلسل المنطقي لحل المسألة . 


مشال 1 

الخوارزمية لعملية جمع عددین ( اي التسلسل المنطقي pad‏ عددین ) هي : 

1 لنفرض ان العدد الاول هو X‏ 

2 - لنفرض ان العدد الثاني هو Y‏ 

3 لنفرض ان حاصل جع العددین هو Z‏ اي ان Z=X-<-Y‏ 

4 اطبع قيمة Z‏ (وهي القيمة الطلوبة ) 

5 _ النهاية ۱ 

هذا المثال البسيط يوضح انه لكي نحصل de‏ مجموع أى عددين يجب اولا معرفة 
قيمة العددین ثم جمعهم وطبع الناتج ; 


مشال2 


الخوارزمية لطبع عدد ما ومربع ومكعب EXC‏ 

1 لنفرض ان العدد الاول هو . 

2 _ لنفرض ان مربع العدد B ж(АжА)‏ . ايان B=A # A‏ 

.) عملية الضرب‎ р ж) 

3 لنفرض ان مکعب العدد (A= Aw A)‏ هو C‏ اي ان 
С«АЭЖАЭЖА‏ 

4- اطبع کل من ھ , 8 ,€ 

АМ _ 5 

شال3 


الخوارزمية لعملية قسمة عددين هي 

1 - لنفرض ان العدد الاول هو 2۶ . 

2 - لنفرض ان العدد الثاني هو ү‏ 

3 اذا كانت قيمة العدد الثاني تساوي صفر ( ۷-0 ) اذهب ال الخطوة رقم )7( 

4 - اذا كانت قيمة ٩۳‏ لا تساوي صفر » اذهب الى الخطوة رقم )5( 

5- لنفرض ان حاصل قسمة X/Y‏ هو Z‏ اي ان ۷ 2.226 (/ Js:‏ 
عملية القسمة ). 

6 - اطبع قيمة .Z‏ 

7 - النهاية . 


226 ТЕС” ی‎ sar v Ce ال4‎ a 


e 7 С олец 
m الخوارزمية لحل معادلة من الدرجة الثانية واجاد الحذور سر می‎ 
ملاحظة‎ 


معادلة من الدرجة الثانية معرفة كالاتي : 


حيث ان ۸ , 8 , C‏ ثوابتوان الجذور بطريقة الدستور هي : 


X = (-B 4 "m ((4۵۲-۔‎ 2۵ 


1 _ الثوابت هي C,B,A‏ 
2 _ معرفة قيم کل من ۸ , 8 ,€ 
3 _ مدید قيمة R‏ حيث ان 7-4۸۵6 R=‏ 
4 _ اذا كانت قيمة R‏ اقل من الصفر اذهب الى الخطوة رقم )1( 
5 _ اذا كانت قيمة R‏ يساوي صفر اذهب الى الخطوة رقم )8( 
6 في هذه الحالة تكون قيمة R‏ اکبر من الصفر تكون الحذور 
Shi‏ 
X2 =(-В+В: ۵ X1 -(-В-Ру/2А `‏ 
7_ اذهب الى الخطوة رقم ( 9 ) 
8 _ في هذه الحالة تكون الجذور كالاتي : 
9 _ اطبع قيمة 1 , 2۸2 
01 اذهب الى اخطوة رقم )12( 
11_ اطبع У)‏ توجد جذور حقيقية للمعادلة ) . 
1ے النهاية 


£' 


FLOW CHART المخططات الانسيابيه‎ 2.2 


وضوحا من الخوارزمية ویقوم مقامها . ویکن بواسطته ملاحظة تتبع التسلسل 
да‏ لحل المسألة بکل سهولة . 


FLOW CHART SYMBOLS الخطط الانسيابسي‎ 5 


الجدول التالي يحتوي على الرموز الخاصة الستخدمة عند رسم الخطط الانسيابي: 


الاستعمال USAGE‏ الرموز SYMBOLS‏ 
بداية او نهاية البرنامج С)‏ 
لادخال و اخراج العلومات N Z‏ 
ши ыы‏ 
اتجاه سير البرنامج ЖЕНЕ‏ | | 
EFE‏ — 
نقطة الانتقال او الاستمرار C)‏ 

تکرار او الدوران سر — 


tY 


الخطط الانسيابي للمثال( 1 ) اي لجموع عددین. 


START 


2007 


tv 


2 JC 
اي لجموع عددين,‎ ) 4 ( JAI الخطط الان يابي لايجاد الجذورالحقيقة في‎ 


)۷۰( ص‎ j 
البرنامج في‎ қыз 
ن ثلاثة اعداد ) راجم البر‎ 
т 


£o 


تمارين 


1 _ اكتب الخوارزمية لايجاد قيمة الدالة X )=IX|‏ ) ۳ حيث ان : 


x IF X20 
FX) = 
- IF 0 


2 _ ارسم المخطط الانسيابي للس‌ژال الاول . 

Ё 3‏ ارسم الخطط الانسيابي لایجاد اکبر عدد من بين مجموعة اعداد۰. 

4 1 اکتب اخوارزمية لطبع الاعداد الفردية ومکعباتها من 1 5031 ثم ارسم 
٠‏ المخطط الانسيابي للخوارزمية . 

5 - ارسم الخطط الانسيابي لايجاد الوسط الحسابي لعشرة اعداد . 


£^ 


الفصل الشالت 
لغةالبييسك 


3 لغة البيسك 


لغة البيسك هی احدی اللغات الستوی العالی تمتاز بسهولة تعلمها وبساطة تعبیراتها 

ما ساعدت على انتشارهاواستخدامها في جيم الجالات التطبيقية ء العلمية » 

een التجارية‎ 

كلمة بيسك مشتقة من الکلمات التالية : 

BEGINNERS ALL PURPOSE SYMBOLIC INSTRU. CTION 
CODE 

)441 متعدد الاغراض للمبتدئن ( . صممت هذه АЙ‏ من قبل الاستاذان جون 

كيمين وتوماس کیرتز في كلية دارغوث في الولایات التحدة الامريكية في بداية 

الستينات . 


2 اساسيات لغة البيسك 


ويتضمن : 
32.1 جموعة الرم‌وز CHARACTER SYMBOLES‏ 


]- الارقام من 0-9 : وتستخدم هذه الارقام في العمليات الجبرية و في تكوين 
الثوابت العددیة ؛ تستخدم ایضا مع الحروف لتسمية العناصر . 

ف ا حروف اللاتينية (А,В,..7)‏ : تستخدم هذه ا حروف لتسمية 
العناصر الرمزية . 

ج - مجموعة الرموز الخاصة : تستخدم هذه الرموز في تنفيذ العمليات الحسابية او 
المنطقية او حالات اخریٰ مثل الفصل‌بین المتغيرات او العمليات . من هذه الرموز 
۰٩ <Х<%<»<><Ң<>-<<Х»әСс<-<ж4/с-<4‏ 
y ele) C glo‏ و ہو ی eee‏ 


t4 


2 الثوابت وا متغیرات 
الثوابت CONSTANTS‏ 


الثابت عبارة عن مقدار یبقی ثابتا خلال فترة تنفيذ البرنامج وهناك نوعان من الثوابت: 


NUMERICAL CONSTANT الثوابت العددية‎ ۱ 


الثابت العددي عبارة عن عدد حقيقي قد يحتوي على الاشارة ) + ( اذا كان موجبا او 
(-) اذا کان سالبا . 
امثلة 562 , 3.170+ , 10.6— 


ملاح 


لغة البيسك لا تسمح للعدد ان یتجاوز عدد ارقامه عن 9 ارقام معنوية SIGNIF}‏ 
(ICANT‏ .عندما یکون العدد مقدارصخیر جدا او کبیر جدا يكن استخدام طريقة 
اخری لكتابة العدد وهی طريقة التدوین اليائى Е--МОТАТІОМ‏ . والصيغة 
العامة لتمثیل العدد بهذه الطريقة هي : 
ER 5, = ап‏ 
+XE +n = +X ж 0‏ 
حيث Xo‏ هو ثابت عددي n.‏ عدد صحیح لا یتجاوز مرتبتین YU‏ ضافة الى 
مرتبة الاشارة » تعتمد قيمة П‏ على نوع اهاز بصورة عامة تكون قيمة D‏ 
محصورة بين 38+ و 38 - 


مشثال 


العدد 1520000 يكتب بالشكل التالي 


4 
10 * 152 - 1520000 
+152E4‏ = 
شال 
العدد 00471  .‏ یکتب بالشکل ال تالی : 
ж 10 `‏ 471- = 00471.- 
-471Е-5‏ = 
ж 10‏ 4.71- = 
۔ الشوابت الغر عددية ( الشوابت NON - NUMERICAL ( & Jl‏ 
CONSTANT‏ 


عبارة عن جموعة رموز محصورة بين علامتي الاقتباس c‏ و ان طول الثابت الرمزي 
مد عل ن امم 
1 


АВС‏ 12۷7 ,257 'وقد يحتوي الثامت الرمزي على فراغات مثل 
Ў АВ 2D‏ 


VARIABLES التغیرات‎ 


المتغير عبارة عن اسم d‏ من مواقع الذاکرة خزن القیم А‏ المتغير ممكن ان یاخذ 
اية قيمة تحدد له في البرنامج . 
وا متغیرات Ole p‏ و ا 


e 


NUMERICAL VARIABLES -المتغيرات العددية‎ ۱ 


تستخدم لخزن الثوابت العددية فقط + والتغیر العددي یتکون من حرف ابجديواحد 
2 - ۸ او حرف ابجدي‌واحد متبوعا برقم عشري واحد . 
امثلة : 87 , X , ×1, ۸۵٩‏ 


ب ۔ التغیر ات الغير عددية NON NUMERICAL VARIABLES‏ 


تستخدم لخزن الغبر عددية > وا متغیر الغیر عددي يتكون من حرف ابجدي" 
qus.‏ باشارة و شرفت رقم متبوع باشارة $ 
x$ ,X1$ e‏ 


ملاحظات : 


АРА‏ جوز ان يتقدم الرقم عن ا حرف في تسمیة المتغيرات . مثلا 226 ليس اسا 


Y‏ لیس من الضروري ان O S‏ اسم المتغير متکونا من حرف واحد فقط e‏ حيث ان 
الاجهزة التقدمة تسمح باکتر من حرف واحدورقم واحد وحسب نوع اهاز 3 


SUM , AB2$ , AHMAD , ААААЗ : 504 


3 العملیات والتعایر الرياضية ARITHMETIC EXPRESSIONS‏ 
ЕЕ‏ اک AND OPERATIONS‏ 
یتکون التعبیر الحسابي من مجموعة من الثوابت العددية او التغیرات العددية 
بالاضافة الى الاشارات الجبرية » ومن العملیات ا حبریة في لغة البيسك : 
А + В + e -1‏ 
2 -الطرح - А-В‏ 


әү 


AxB x -الضرب‎ 3 
А/В / -القسمة‎ 4 
AB A اس‎ di -الرفع‎ 5 


THE RULE OF PRECEDE NCE 2 قاعدة الاسبقي‎ 


МАЛ La‏ الحسابية في a:‏ اليك يجب اتباع قاعدة لسلسل Lás‏ العملیات 
الحسابية تسمئ قاعدة الاسبقية وتكون على النحو التالي : 

1_ استخراج قيم التعابير المحصورة بين الاقواس اولا ومن الیسار الى اليمين . 
2 _ ايجاد عمليات الرفع الى قوة ومن اليسار الى اليمين . 

3_ ایجاد عمليات الضرب او القسمة ومن اليسار الم اليمين . 

4 _ ايجاد عمليات الجمع او الطرح ومن الیسار الى اليمين . 


: تکون اسبقية تنفيذ العمليات الحابية التالية كالاتي‎ : Ji, 


1-. X-(2+5 ХҮ) ^ 5 


ғ” 


LOGICAL EXPRESSION التعابير المنطقية‎ 3 


نفس النوع » ومن هذه الرموز : 


А-В -1 
А<>В -2 
А>В -3 
А<В -4 
A=>B -5 
А-<В -6 


+ ۷ هم ۸۱۸ 


5 الايعازات 


عبارة عن جموعة اوامر او تعليمات تعطئ للحاسبة من قبل المبرمج عن طريق 
وحدة الادخال . 


كل عبارة مكتوبة بلغة البيسك las‏ برقم يسمئ رقم السطر ويكون تسلسل تنفيذ 
العبارات حسب ترقيم الاسطر حيث ان عبارة رقم 10 تتم تنفيذها قبل عبارة رقم 
0 في البرنامج ...ومکذا . 


ملاحظه 


عادة БАЗА‏ بواحد على الاقل بين کل عبارة ورقمها . 
.^ 


ot 


تمارين 


SX Y éxVZ 
— —Ó— — + کک سے‎ -4 
X+Y Z 
2 2 
و‎ - 7 ( ) 22 +X ۱ ~ 
2 
Y= ( 5K - 2 ( 7 2 4 


- - بین تسلسل العملیات الحسابية للمعادلات التالية : - 


(2У%ХУ2%3%772У / (3ж7+1) + (X-Y) -1 
2 + 3 * X х (ZZK)“( 3⁄4 ( يب‎ 


3- اكتب التعابير المنطقية التالية بلغة البيسك : 


2 
2X + ۷ > 6 -1 


2 2 3 
(224 -Y У%<Х-Уу9 25 


eo 


_ اکتب التعابر الجبرية والعملیات الحسابية التالية بلغة البيسك : 


الفصل الرابع 


الایمسازات فى لغة البيسك 


oV 


الایسازات 

اشرنا سابقا الى ان الایعازات هي عبارة عن مجموعة اوامر تعطی للحاسبة с‏ 
والایعازات في لغة البيسك نوعان : 
أ الایعازات التنفيذية : هي الایعازات التي تعطی للحاسبة لتنفیذ عمل معين . 
ب ۔ الایعازات غير التنفيذية : وهي الایعازات التي تزود المبرمج بمعلومات عن 
طبيعة البرنامج . 
وی هذه الايعازات : 


LET ايعاز(اسناد)‎ 44 


هوايعاز تنفيذي يستخدم لتحديد أو اسناد قيمة تعبير حسابي معين الى متغير ما . 
الصيغة العامة هى : 

М LET VARIABLE=ARITHMETIC EXPRESSION 
عبارة عن رقم السطر‎ : Noble 
اسم متغير‎ : VARIABLE 
تعبير حسابي او ثابت عددي‎ : АКІТН. EXP. 


10 LET X 


1 ۱ ۲ 
20 kef Y J 


2+5 


۱۱ w 


حسب عبارة رقم 10 تقوم امحاسبة تخصیص موقم من مواقع Ш‏ اكرة و اعطاءه 
اسم X‏ وتحدید قيمة ل يساوي واحد . اما عبارة 20 تعني ان احاسبة تقوم 
بتخصیص موقع اخر في الذاكرة و تسمیته باسم Y‏ ومن ثم ايجاد قيمة التعبیر الحسابي 
2+1 واعطاء القيمة الناتجة الى Y‏ 
imh‏ 
يمكن الاستغناء عن ایعاز LET‏ في العبارة بالنسبة للاجهزة التقدمة وذلك لان 
الساواة تقوم مقام هذا الایعاز . 


og 


2 ایماز ) ادخل ( TNPUT‏ 


هو ایعاز sias‏ یستخدم لادخان المعلومات D^ d!‏ الجهاز ومن خلال وحدة 
الادخال . 
الصيغة العامة هي : 


М INPUT LIST € V1, و۷2‎ ... D 


N‏ : عبارة عن رهم السطر 
7 : هو قائمة باسماء المتغيرات الراد تعریفها و استخدام الفارزة للفصل بين 
هذه المتغيرات . 
у,‏ 

عند تنفيذ ایعاز INPUT‏ تظهر على الشاشة علامة استفهام (؟ ) تعني اعطاء 
المبرمج قیم»للمتغیرات العرفة بواسطة INPUT‏ وذلك لتکملة تنفيذ البرنامج 


شال 
INPUT X —‏ 10 
INPUT Y$‏ 20 


'ويمكن تعریف × , Y$‏ بایعاز واحد هي 


30 INPUT X, ҮФ 

عند تنفيذ عبارة رقم 10 تظهر علامة استفهام واحلةتطلب قيمة عددية واحدة 

للمتغیر X‏ . عند تنفیذ عبارةارقم 20 تظهر علامة استفهام اخریٰ تطلب قيمة 

رمزية واحدة الى Y‏ ۰ ولکن عند تنفیذ عبارة رقم 30 تظهر علامة استفهام تطلب 

oes‏ بالتسلسل وتفصلهم فارزة ء الأول قيمة عددية للمتغیر X‏ . و الثانية قيمة 
رمزية ل Y$‏ . 


ایعاز اقراء ى-البيانات КАЮ; DATA‏ 


ايعاز READ‏ . ایعاز تنفيذي من ایعازات الادخال تستخدم لتعریف جموعه 
متغيرات ويختلف عن ايعاز INPUT‏ لكونه со‏ إل ایعاز اخر وهو DATA‏ 
لاعطاء القيم الى المتغيرات ظمن البرنامج ( ای ان هذين الايعازين متلازمان في 
البريامج ) c‏ وان ' IDATA‏ هوايحاز غير تنفيدي يحدد قيم امتغيرات ويمكن كتابته 
في اي موقع ضمن البرنامج . قبل ايعاز انهاء البرنامج والصيغة العامة هي : 


N READ LIST ( VARIABLES ) 


M — DATA LIST ( CONSTANTS )‏ 
М‏ عبارة عن رقم السطر 
LIST (VAR .)‏ اسماء التغیرات الراد تعریفها 
LIST(CON.)‏ : قیم التغیرات التي تعرف بواسطة READ‏ 


ملاحظسه 


يجب ان لا يقل عدد القیم العطاة في ایعاز DATA‏ عن sae‏ ا متغیرات الشار الیها 
بواسطة .READ‏ 


Jus 


10 READ X 
20 READ Y$ 


100 DATA 12 
110 DATA  'ALI' 


54 


مكن كتابه نفس الثال بصيغة اخریٰ وهي : 


10 READ X 
20 READ ۶ 


50 DATA  12,'"ALI' 
10 READ X,Y$ او‎ 
50 DATA” 1z تاه‎ ” 
Las 
. اذاكثر عددها في البرنامج‎ READ یفضل تعریف التغیرات باستخدام‎ 
PRINT( ایعاز ) اطبع‎ 


وهو ایعاز تنفيذي یستخدم لاستخراج قیم التفیرات من وحدة الذاكرة وطبعها الى 
الوسط الخارجي من خلال وحدة الاخراج والصيغة العامة هي ` 


N | PRINT LIST ( VARIABLES )‏ 
N‏ : رقم العباره 
LIST ) VAR ۰(‏ : قائمة باسماء المتغيرات المراد استخراج قیمها والتي تفصلهم 
(, ) اور( 5). 
ملاحظات 
1 - یستخدم الرمز ( : ) للفصل بين التغیرات ولکن السافة تکون اکبر عند .. 
استخدام الرمز GO‏ 
2 - لاستخراج وطبع قیم التغیرات على الوسط الخارجي بعد تنفیذ البرنامج. 
يستخدم ایعاز -LPRINT‏ 


READ X5 Y ==" 
(ЕТ Z=X+Y 
PRINT 2 
DATA 5,10 
: ملاحظے‎ 


يمكن استخدام ايعاز PRINT‏ لطبع قيمة عددية او عبارة رمزية غير حزونة في 


الذاکرة . 
JU‏ 
PRINT 5 I‏ 
PRINT "HELLO"‏ 
ملاحظة 
يمكن استخدام ایعاز PRINT‏ لترك سطر في البرنامج 
مثال 


10 
20 


اكتب برنامجا لقراءة متغيرين لا , × ثم اطبع قيمة × في السطر الاول وقيمة لا في 


السطر الثالث . 


READ X ۷و‎ 
PRINT x 
PRINT 

DATAT Y 
ATA 10 20 
END ” 


6 ایعازات السيطرة ) التحکم ( CONTROL STATMENTS‏ 


لقد اشرنا سابقا بان البرنامج عبارة عن جموعة متسلسلة من الاوامر او 


تنفیذ البرنامج من موقع الى اخر ویتم ذلك باستخدام ايعازات تسمی ایعازات 
السيطرة . اي ان ایعازات السيطرة هي الاوامر التي یتحکم في سير تنفيذ البرنامج . 
ومن ایعازات السيطرة =š‏ 

1 ايعاز الانتقالٍ غير الشرئطية ( اذهب ( СО - TO‏ 


ان استخدام هذا الايعاز يسبب انتقال غير شرطي من عبارة الى اخری . و. 


: الصيغة العامة هى‎ 
М GOTO L 
رقم العبارة‎ : N 
GO TO رقم العبارة التي يجب الانتقال الیها تنفيذا لعبارة‎ : L 
شال‎ 
10 INPUT X,Y — 
20 PRINT X » Y 
30 GOTO 100 
ао LET Z=x+ Y 
100 END 


في هذا المثال يتم تنفيذ البرنامج بالتسلسل ابتداء من عبارة رقم 10 الى رقم 30 . اما 
في عيارة رقم 30 فان ايعاز GOTO‏ يسبب انتقالا* الى عبارة رقم 100 لتنفيذها 
بدلا من تنفيذ عبارة رقم 40 . 


4 ايعاز ملاحظة REM‏ 


ان ايعاز REM‏ من REMARK) ls‏ )اي الملاحظة عبارة عن ايعاز غير 
М КЕМ EXPRESSION‏ 


1% 


М‏ : رقم السطر 
EXP‏ لوصف الطلوب 
ملاحظطه 


ان هذه العبارة تہمل من قبل الحاسبة . 
4.5 ایعاز END ay‏ 

ایعاز غير تنفيذي یستخدم У‏ البرنامج ET‏ في نہایة البرنامج عادة . الصيغة 
العامة هي : 


М END 
ملاحظة‎ 


ان كل ايعاز يمثل عبارة واحدة ( سطر واحد ) في لغة البيسك . اي ان كل عبارة 
تحمل رقما واحدا تحتوي على ايعاز واحد فقط » ويمكن ان يحتوي السطر الواحد على 
sae‏ عبارات يفصل بین كل عبارة وعبارة رمز ( : ) e « COLON‏ بان السطر 
الواحد يمكن ان يطبع فيه خمسة وسبعون رمزا . 


شال 
LET X=1 —‏ 10 
LET YzXx245‏ 20 
PRINT X»Y‏ 30 
X =Х+1 : GOTO 10‏ 40 


عند تنفيذ هذا البرنامج يتم ايجاد < Y‏ ثم طبع قيم v‏ × وزيادة قيمة 26 
بواحد ثم العودة الى بداية البرنامج بواسطة .GOTO‏ 
ملاحظة 


чо 


4.6.2 ایعاز اذا كان IF - THEN‏ 


یستخدم هذا الایعاز لاختبار صحة شرط معين ثم اختیار السطر الطلوب تنفیذه 
اذا كان الشرط صحیحا . الصيغة العامة هي : 


М IF | CONDITION THEN М 


COND.‏ : الشرط الطلوب اختباره ویکون عادة تعبیر منطقي 
THEN‏ ھو الجزء الکمل للعبارة الشرطية 


: يمكن ان یکون‎ M صحیحا فان‎ БАЛ عندما یکون‎ : M 
رقم السطر الطلوب الانتقال اليه لتنفیذه‎ _ 1 


اما اذا كان الشرط غير صحیحا يتم تنفيذ العبارة التي تلي عبارة N‏ مباشرة . 


شال 
IF 20 THEN 120 —‏ 20 
لاعلا IF X> THEN‏ 30 


في عبارة رقم 20 , 120 يمثل رقم السطر الطلوب تنفیذه اذا كان الشرط صحیحا . 
اما اذا كان الشرط غير صحیحا يتم تنفیذ عبارة رقم 30. 


مشال 
251 لقراءة X‏ , ۷ ثم انجاد قيمة 7 حيث : Х-м‏ 
EE X»y‏ 
I:‏ 3 
Z =‏ 
Хх“ X€Y‏ 


AS 


REM FIND THE VALUE OF 7 
READ لاوا‎ 

IF ХҮ THEN 50 

Z= X*Y : 5010 60 

2=(Х-Ү)/2 

РКІМТ 7 

END 


شال 


10 
20 
30 
40 
50 
60 
70 


اکتب برنا جا لقراءة متغيرين وایجاد حاصل القسمة بشرط ان ا مقام لايساوي صفرا 


ارسم الخطط الانسيابي للبرنامج . 


INPUT X,Y 
IF Y=0 THEN 50 
Z-X/Y 
PRINT Z 
END 


YN 


10 
20 
30 
40 
50 


مشال 


«Ы» AX2+ BXrG= 0‏ ( الجذور خيالية ) عندما یکون الجذور غير حقيقية . 


= ] 2 : حيث ال‎ 
- B +В - 0 


2 
10 РЕМ FIND THE REAL ROOTS FOR AX +BX+C 
20 INPUT А,В,С 
30 — R-B^2-4xAxC 
40 IF RCO THEN 130 
50 IF R-0 THEN 90 
60 X1 z(-B*R^.5)/2xA 
20 X2 -(-В-В”.5)/2жА 
80 GOTO 110 
90 Х1=-В/2*А 
100 Х2=Х1 
110 PRINT ۵2 
120  GOTO 140 
130 PRINT "THE ROOTS ARE IMAJINARY" 
140 END 


3 ايعاز عند اذهب ON - GOTO‏ 


: الصيغة العامة هى‎ 
N ON М GOTO М1, М2,... 


M بل , ,۱۷ : ارقام الاسطر يتم الانتقال الى واحدة منها اعتمادا على قيمة‎ se 
متغير عددي او تعبير حسابي یأخذ قیم متسلسلة ابتداءا من واحد وتنفيذ‎ M 
: العبارة یکون بالشکل التالی‎ 


اذا كان قيمة M‏ ينناوي واحد يتم تنفيذ عبارة رقم М‏ 


۸ 


اذا كان قيمة M‏ يساوي اثنان يتم تنفيذ عبارة , 


مر 


نہ M‏ دهكذا 


شال 


2 
X -5Х IF Х=1 
ү = 0 IF Х-2 
Х+2 IF X=3 
ic INFUT X 


22 ON X GOTO 30 و‎ 405 50 
3i YzX^2*5*X : СОТО 60 
40 =0 : GOTO 0 


50 Y=X+2 
60 PRINT Y 
70 END 
شال‎ 


اذا كان لدينا مجموعة ارقام ء اکتب برنامجا لعرفة الفردية منها والزوجیة حسب 
المعادلة 22+1 /×)2×10۲-×ع۷ ۰ يكون Xo4‏ زوجیا اذا کان 1 Y=‏ 
وفرديا اذا کان 2 Y=‏ 


10 INPUT X 

20 LET Y=X-INT(X/2)x2+1 

30 ON Y GOTO 40,60 

40 PRINT X و‎ EVEN" 

50 GOTO 10 ۱ T ۱ 

ملاحظة 10 5070 : 0 PRINT X‏ لاه 


INT‏ عبارة عن دالة مكتبية ماخوذة من کلمة INTEGER‏ حيث انها تأخذ 
لجزء الصحيح من العدد الحقيقي ولعرفة المزيد عن هذه الدالة راجع الصفحة се)‏ 
© 


14 


راد نا i‏ 
Me:‏ کتابة البرنامج السابق بطريقة اخری باستخدام ایعاز IF-THEN‏ بدلا من 
ON-GOTO‏ وكالاتي : 


10 INPUT X 
20 (ЕТ Y=X-INT(X/2)%2 

30 IF Y= THEN PRINT X ۶ "EVEN": GOTO 10 
49 PRINT X و‎ "000" : GOTO 10 


مشال 


الاعداد ( لاحظ الخطط الانسيايي للبرنامج في ص (£o‏ 


10 INPUT Х%Ү»7 

20 IF X«Y THEN 50 

30 IF ۷۰۶ THEN ۳۶۲ : GOTO 60 

40 M-Z : GOTO 60 

50 IF X<Z THEN M-X 

$0 PRINT ^" THE SMALLEST VALUE = " š M 
70 END 


COUNTER5!. 5и 


عبارة عن متغیر یدخل qao d‏ لیعد عدد التسکرارات لمجموعة من الخطوات 
еі‏ خوارزمية العد COUNTING ALGORITHM‏ . والخطوات هی : 


1 - افرض ان قيمة ا متغبر الذي يمثل العدد مساویا للصفر ` (120) 
2 اجعل القيمة الجديدة للعداد تساوي القيمة القديمة زائدا واحد اي ان( 1-1+1 C‏ 
3 کرر ا خطوات ابتداءا من )2( الى ان تنتهي عملية العد وذلك بقارنة قيمة 1 


J 


اکتب let y‏ لطبع الاعداد ( 0 - 100 ( 


120 
PRINT I‏ 
I=I+1‏ 
IF І<-100 THEN 20‏ 
END‏ 
ملاحظلة 
في هذا المثال jz I‏ العداد وفي نفس الوقت يمثل العدد الطلوب طبعه . 
مثال 


10 
20 
30 
40 
50 


اکتب ,20( بلغة البيسك لقراءة خمس قیم Az XJ‏ قيم ۷ حسب العادلة : 


۰ ۲ = X + 2X 


LET Ісі 
INPUT X 
Y=X“?+2xX 
PRNIT ۷۶۷ » ۷ 
1*1*1 
IF 1І%-5 THEN 20 
UNI 
VA 


16 


^ 
< 


22 
40 
نا 
641 


ملاحظة 

1 - يكن ايضا اختيار القيمة البدائية ل I‏ مساويا للصفر ( 0 = 1 ) وتبعا لذلك 
عبارة رقم 60 تتغير ال . 20 IF 164 THEN‏ 60 

2 - في هذا JEU‏ المتغير 1 يقوم مقام العداد فقط . ; 

خوار زمية التجميع SUMMATION ALGORITHM‏ 


هي خطوات ايجاد مجموع مجموعة كبيرة من المتغيرات التي تمثل ظاهرة معينة 
پاستخدام متغیرین اثنين فقط ؛ احدضا هو المتغير المراد جمعه والاخر هو الجمع 
وباستخدام ايعازات السيطرة والعداد 5 
1 - افرض القيمة البدائية للمجموع يساوي صفرا ( 6-0 С‏ 
2 - اقرأ قيمة واحدة للمتغر . 
3 -اجعل القيمة الجديدة ل ٩‏ تساوي القيمة القديمة له زائدا القيمة المعطئ ل ТА»‏ 
200 بر + و ع و ) 
کرر اخطوات ابتداءا من خطوة رقم ( 2 ) الى انتهاء عملية قراءة القیم » وتکون 
المخطط v‏ هذه الخوارزمية كالاتي : 


ҮҮ 


مشال 


اکتب برنامجا لايجاد مجموع N‏ من القیم وارسم الخطط الانسيابي لذلك . 


10 INPUT М 
ZU ізі 5-0 
30 INPJT X 
40 S=S+X 


1 
ناه‎ XE Іі<-М THEN اف‎ 
70 PRINT "THE SUM* 5 s 
D 


في العبارة رقم 20 Ladi‏ يشل العداد الذي يعد عدد التکرارات في البرنامج و٩‏ 
СОГОМ)‏ للفصل بين العبارات كما هو ا حال في عبارة رقم 20 . 


vr 


ملاحظه4 


عند ضرب مجموعة كبيرة من التغیرات يمكن اتباع نفس قاعدة الجمع بجعل القيمة 
لبدائية خحاصل الضرب مساویا الى واحد بدلا من الصفر ( في حالة الجمع ) » 
والعملية الحسابية هي عملية الضرب بدلا من الجمع . 


شال 


NizNx(N-4X5X4N-2) ... 38294‏ حیث ان ae N‏ صحیح 


10 INPUT м 

20 ۴۶1 : 1 

30 ٢۔1‎ 

40 [11 

50 IF ۲42۸ THEN 30 
60  PRNIT F : END 


وان الخطط الانسيابي هو کم یل : 


Vt 


4 ایع از من الى FOR, NEXT‏ 


هناك طريقة احری لتکرار تنفیذ محموعة من الاوامر محددها احدی اوامر السيطرة 
بدلا من الايعاز( (IF ^ THEN‏ ولا تخرج من تکرار الاوامر ین اكمال 
العداد او تحقيق الحالة المطلوبة والايعاز هو FOR-NEXT‏ . 


: تكون الصيغة العامة كالاتي‎ 
N FOR VARIABLE = М1 Т0 М2 STEP M3 


الاوامر الراد تکرارها ۰ 


М NEXT VARIABLE 


р: VARIABLE‏ العداد الذي يعد عدد التکرارات ويتغير قيمته كلا تم تکرار 
الدورة . 

1 ؛ القیمة البدائية للعداد . 

. القيمة النهائية للعداد‎ , мә 

. مقدار الزيادة او النقصان في قيمة العداد خلال کل دوره‎ : МЗ 


ملاحظة 
القيمة البدائية والنہائیة والزيادة 3( ایعاز FOR -NEXT‏ ممكن ان يكون ثوابت 


عددية او متغیرات عددية او تعبيرات حسابية . 


أمثلة 
FOR I= M«2 -----‏ 


FOR Е-с 0.05 TO 0.25 STEP .01 
FOR K= 20 TO 5 STEP -1 


Vo 


(LOOP) 4041 


مجموعة الاوامر الراد تکرارها باستخدام ایعاز FOR - NEXT‏ يكن توضیح صيغة 
JYS FOR - NEXT‏ : 


اما باستخدام THEN‏ - 1۳ هي : 


لاحظ ان عدد الخطوات باستخدام FOR - NEXT‏ يقل عن عدد الضطوات 
باستخدام IF- THEN‏ . 


va 


حلقات الدوران المتداخلة NESTED LOOPS‏ 


من الممكن ان تحتوي حلقة الدوران الواحدة على حلقات اخری بصورة متداخلة 
غير متشابكة . تسمئ اصغر حلقات الدوران بحلقات الدوران الداخلية 
ЧІММЕК LOOPS)‏ بی الحلقات الاخرى تسمئ بحلقات الدوران الخارجة 
(OUTER LOOPS)‏ . 
يمكن توضیح الحلقات التداخلة بالشکل التالي : 


FOR 121 TO М ہہ‎ 


aiii FOR J1 ۲۵ М Т 
الداخلية‎ (0) . 9 sd 
NEXT ل‎ 
NEXT 1 
12345 
1 2 3 4 5 
1 2 3 4 5 
10 FOR 121 103 
20 PRINT I 
30 FOR 4-1 T95 
Д + NEXT J 


۷۷ 


يمكن توضیح ا حلقات الصحيحة المکن استخدامها بالبرمجة والحلقات الخاطئة الغير 


حلقات خاطئة ( متشابکة ( 7 مسي 


FOR I FOR I FOR I FOR I 
FOR ل‎ FOR 41 FOR J FOR J 
FOR K NEXT J NEXT I FORK 
B=: K FOR K NEXT J NEXT I 


МЕХТ J NEXT K NEXT J 
NEXT I NEXT I NEXT K 


Cay. 


اذا علم әде‏ التکرارات LY‏ عملية في البرنامج یستخدم ايعاز ( (FOR - NEXT‏ 
اي عند معرفة القيمة البدائية والنهائية للعداد » اما اذا كانت القيمة النهائية للعداد 
غير معلومة فیستخدم الایعاز СОТО‏ . 
5 .+مثلة 
مثال1 
اکتب برناجا لقراءة الاعداد 102 , 11 , 37 , 12 , 5 ثم اطبع الاعداد الاولية 
منها ` 0 
( العدد الاولي هو العدد الذي لايقبل القسمة الا على نفسه وعلى واحد ) 
REM РКІМТ THE PRIME NUMBER‏ 10 
FOR Ісі TO 5‏ 20 
READ X‏ 30 
FOR J-2 TO X-1‏ 40 
R = X-INT(X/J)wJ‏ 50 
6D IF R=O THEN 9D‏ 
TO NEXT J‏ 


NEXT I 


VA 


مشتال2 


اکتب برناجا لايجاد مساحة المثلثات القائمة الزوایا التي تبلغ قواعدها 2, 7,10 
,12,14 وارتفاعاتها 4 , 20 ,15 , 8 , 3 على التوالي 

1 - باستخدام ا حلقات 

2 - دون استخدام الحلقات 


10 FOR Ізі ТС 5 

20 PRINT 'INPUT THE BASE AND THE HIGHT ۴ 
30 READ ۷۲ 

4Q LET Аз.5жХжҮ 

50 PRINT "THE AREA = "А 


60 NEXT i 
? DATA 2,4,10,20,7,15,14,6.12,3 
80 END و و و و و و‎ 57 y و‎ 


دون استخدام ا حلقات : 


10 Ізі 

20 PRINT "INPUT THE BASE АМО-ТНЕ HIGHT" 
30 INPUT X و‎ Y 

40 LET ۷ 

50 PRINT " THE AREA - А 


60 1=1+1 
70 IF 1<=5 THEN 20 
80 END 


۷۹ 


3J— > 


اکتب برناجا لقراءة التغیر X‏ ثم ایجاد الجموع eM‏ : 
15 7 


3 3 í 
S=X-X7/73-X/5-X/?+..,. -X /15 


10 5-0 : K=0 

20 INPUT X 

30 FOR J=1 TO 15 STEP 2 
40 S zS*(C-1,^KxX^I/I 


50 K +1 

60 МЕХТ 1 

(79 PRINT "THE SUM = ":5 
80 END 


مشال4 
اكتب برنامجا لطبع الحرفين M , N‏ بحيث ان يكون بینہم ثلاثة أسطر . 


10 PRINT "М" 

20 FOR 1-1 TO 3 
30 PRINT :NEXT I 
40 PRINT ۷ 

50 END 


مش‌الد 
اکتب برناجا لقراءة التغیر X‏ ثم جد قيمة ( EXP ) X‏ حيث ان : 


2 N 
SxP(X; = 1 + ۷۸/1 + X 7/۵۱ +.. + X الل‎ 


10 5-1 

20 INPUT و«‎ N 

30 FOR Ізі TO N 

40 F =1 

FIR J =1 TO I‏ زا 
F =FxjJ : NEXT J‏ 50 
О S$ =S+X“I/F‏ 


80 NEXT I 
Әб PRINT "= و یه‎ 
100 END 2 


ملاحظ ¿ 
ان اي عبارة من العبارات الاساسية في لغة البيسك تبدأ باحدی الکلمات التالية : 


INPUT(READ), LET , PRINT, IF, GOTO, FOR , END 


تمارين 


1 اكتب برناجا لقراءة قيم × , Y‏ واطبع قيمة Z‏ حيث : 


ө ; 
z=Yð X 
>۱ 


2 اكتب برنامجا لقراءة عددين Y , X‏ ثم عين فيا اذا كان كل عدد ررجی د 
ix.‏ 
3- اکتب برنامج لقراءة قيمة 8 ثم احسب قيمة تا واطبع a , b‏ حیث : 


0+2 IF 2 ۰9 


b 7 et 20 
3 


ІР ۸ y 1‏ 3+ 2 ل 


4 - اکتب برناجا یقوم بالعملیات التالية : 

1 - طبع الاعداد الفردية التي تقبل القسمة على 3 والتي تقع بین 10 - 100 I‏ 
e‏ الاعداد الصحيحة والتي تقع بین 10 - 100 

3- حاصل ضرب الاعداد الزوجية والتي تقع بین 10 - 100 


IF 0<0<1 


۸۱ 


الفصل اخامے۔ 


< 


لابد من الاشارة الى ان التغیسرات التي سبقت ذکرها كانت من نوع 
ذاكرة الحاسبة الالکترونية » ولکن عندما تکون المتغير عبارة عن ispat‏ عناصر من 
نفس النوع تخزن فی مجموعةضلايا في الذاکرة ونحت اسم واحد یسمی ЛАДЫ‏ المؤشر او 


المصفوفة . 
المصفوفة 
المصفوفة عبارة عن كميات او اعداد مرتبة في صفوف و اعمدة على شكل مستطيل 
وتکتب بالشکل eu‏ 
а‏ 
1М‏ 13 12 11 
а а а а‏ 
А = 21 22 23 20‏ 
а а а‏ 2 
М1 М2 M3. MN‏ 
M«N‏ 


کل من الکمیات او الاعداد a‏ .... ,8,8 والتي تشکل هذه الجموعة یسمی 
عنصرا في الصفوفة ویطلق على الارقام الرافقة لعناصر الجموعة الادلة او المؤشر 
الذي يعين موقع العنصر في الصفوفة 
1 . 5 مصفرفة ذات بعد واحد 
ONE -DIMENSIONAL ARRAY‏ 
عبارة عن جموعة عناصر مرتبة على شکل صف واحد او عمود واحد ویوجد 


مؤشر واحد يشير الى تسلسل العنصر في الصفوفة . 


مئال 


x = X, aua г, 


المصفوفة Х‏ تتکون من مجموعة عناصر x 4 j^‏ 
مرتبة على شكل صف واحد و ان : 
Х,‏ : هو العنصر الاول في المصفوفة 
X.‏ : هو العنصر الخامس في الصفوفة 
X.‏ : هو العنصر الاخير نی الصفوفة 
وصيغة الكتابة بلغة البيسك هى كالاتي : X(1).X(2).X(3)....‏ 
او( 1 ) × حیث] ياخذ القيم من 1 الى IN‏ یسمی مؤشر الصفوفة ويشير الى 
موقع كل عنصر في الصفوفة ۲ 

يتم حجز LAH‏ الطلوبة لخزن عناصر الصفوفة في الذاكرة الرئيسية باستخدام 
انعاز DIM‏ من DIMENSION‏ وهو ایعاز غير تنفيذي والصيغة العامة هى : 
ےو М DIM МАМЕ1(М), МАМЕ2(М)‏ 
حیٹ МАМЕІ‏ : هي مصفوفه عدد عناصرها N‏ 
2 : هی مصفوفه عدد عناصرها .M‏ 
NM‏ : ابعاد الصفوفات 
مشال 
A$(30) —‏ و DIM Х(20)‏ 10 


ملاحظة يهب تحدید әде‏ الخلايا الطلوبة قبل قراءة عناصر الصفوفة . 


فراءة المسسوفة دات بعد واحد 


ادا كاس La!‏ مصموفة )№( А‏ سم فراءة وخزن عناصر المصفوفة في الداكرة 
باستخدام الحلقات ( بعد تحديد الخلايا لكل عنصر ) وبالشكل التالی : 


FOR I1 TO М 
INPUT (READ) ACN) 
NEXT I 


كتابة المصفوفة دات بعد —_ 


يتم كتابة المصفوفة )№( A‏ المخزونة في الذاكرة بنفس طريقة قراهة 


وبالشكل التالي : 
FOR 121 TO М‏ 
PRINT ACI)‏ 
NEXT I‏ 
مشال 
اکتب برنامجا نقراءة mii‏ 3و8 , 7 , 21 , 10 الرتبة على شکل مصفوفة احادية ثم 
اطبع عناصر المصغدفة . 


10 REM READ AND PRINT АМ ARRAY 
20 DIM А5) 

30 FOR 1-1 TO 5 

40 READ ACID) : NEXT I 

50 FOR 1=1 TO 5 


АУ 


60 PNINT ЖІ, : NEXT I 
70 DATA 10 و8 و7 و12 و‎ -3 
80 END | : 
ملاحظه‎ 
. الاقل لعدد العناصر في الصفوفة‎ 
) مصفوفة ذات بعدين ) ثائية‎ 5.2 
— و و‎ 
TOW DIMENTIONAL ARRAY 


бу‏ عن حموعة عذھر .42 of‏ شکل حموعة من الصفوف ومحموعة من 
الاعسدة ف eA‏ الاوے يشير الى الصف E‏ ال انعمود . S‏ 


T‏ و کرک 


X ча ,و‎ Ney ses Ха 
Хм Xma ۰ X My 
الموجود في‎ хақ ها‎ X. ММ عبارة عن مصفوفة ثنائية عدد عناصرها‎ 
هو العنصر الموجود في الصفم اثلث والعمود‎ X... الصف الاول والعمود الأول‎ 
انکتابة بلغة‎ eo: LN والعمدد‎ М الرابع > يي .لا هو العنصر انوجود في الصف‎ 
JM حيث 1 هوالمؤشر للصف — : إلى‎ Х(1,1) البيسك هي‎ 
اي ان ۱ 2.3 )× هوعنصر‎ . N هوالمؤشر للعمود وياخذ القيم من 1 الى‎ 
الواقع في الصف الثاني والعمود الشالث . . . وهکذا . بنفس‎ X في الصفوفة‎ 
وباستخدام‎ AIL الطلوبة لخزن عناصر المصعوفه‎ LALI الطريقة السابقة يتم حجز‎ 

ايعاز DIM‏ . وتكون الصيغة العامة بالشكل التالي : 


М DIM МАМЕ1 )۱ و‎ Mt) و‎ МАМЕ2(М2, M2) 
مثال‎ 


10 DIM X(10,12), 86 )3,5( , AC10) 


AA 


قراءة الصفوفء ذات بعدیسن 
تتم قراءة الصفوفة ( ACM ۰ N‏ باستخدام الحلقات التداخلة وبالشکل التاني : 
FOR 121 TO М‏ 
FOR 2-і TO М‏ 
INPUT (READ) A(IgJ)‏ 
NEXT J : NEXT I‏ 
تسمی هذه الطريقة للقراءة بالقراءة الصفية ( (КОМ By ROW‏ 
FOR J= TO N‏ 
FOR 1=1 TO М‏ 
INPUT (READ) А(1,.)‏ 
NEXT I : NEXT J‏ 
تسمی بالقراءة العمودية ( COLUMN BY COLUMN‏ ) 
كتابة المصفوفة ذات بعدیسن 


يمكن كتابة الصفوفة ( A(M , N‏ صفیا بالشکل التالي : 


FOR 121 TO М 
FOR Ј=1 TO М 
PRINT A(I,J) 

NEXT J : NEXT I 


А4 


FOR 2-1 TO М 
FOR 121 TO М 
PRINT АСІ,Ј) 
NEXT I : NEXT J 
مشال‎ 


اکتب برناجا لقراءة المصفوفة( 10 . 5 ]ئم اطبع عناصر الصفوفة صفیا des‏ شکل 
مصفوفة عدد صفوفها خسه وعدد اعمدتها عشرة . 


10 DIM Х(5,10) 
20 FOR 121 TO 5 
30 FOR J-1 TO 10 
40 INPUT XCJ) 

50 NEXT J : NEXT I 
60 FOR 121 TO 5 
70 FOR 1-1 TO 10 
80 PRINT ха»); 
90 NEXT J : PRINT 


100 NEXT I 


ملاحظة 
ان استخدام الرمز في عبارة رقم 80 هو لطبع عناصر الصف الواحد في سطر واحد 
ثم الانتقال الى سطر اخر باستخدام عبارة PRINT‏ بعد عبارة NEXT‏ 


3 امثلة محلولة : 


B= (-1 ,-2,3 ,9 ,-5 „12,422 ,-9 ) كانت‎ (1) Jes 
B لقراءة الصفوفة‎ - Y 


Y‏ جد عدد الاعداد الوجبة وعدد الاعداد السالبة 
۳ جد عدد الاعداد الفردية وعدد الاعداد الزوجية 


10 DIM Х(8) 

20 Р=0:№=0:Е=0:0=0 

30 ҒОЕ 121 70 8 

40 READ ۰ 

50 IF X(I)>O THEN ۳۳۴1:60۲0 70 
60 IF Х(12<0 THEN NzN*1 

70 IF X(I)/22INT(XCI)/2) THEN ЕзЕз1:060Т0 90 
80 0-0*1 

90 NEXT I 

100 DATA -1, :2,3,9,-5,12,122,-99 
110 PRINT 'Pz';P,'Nz';N 

120 PRINT "Е-" Е,"0-%0 

130 END 


(Y) JUa 
Y Z جد قيمة‎ А مصفوفة احادية . اکتب برنامجا لقراءة‎ А ) 50 ( اذا كانت‎ 


LJ 


. — 


10 DIM X(50) 

20 Ү=0:2=0 š 

30 FOR I=1 TO 50 З 
40 INPUT ХСІ):МЕХТ I 

50 ҒОК 1=1 ТО 50 5ТЕР 2 

60 Y=Y+X(I) 

70 2=2+Х(1+1) 

80 МЕХТ 1 

90 PRINT "y= ۰۶۷۶۲ Z= ";7 

100 ЕМО 


مشال (Y)‏ 
اذا كان )№( уа X‏ احادية عناصرها اعداد عشوائية . اکتب برنج لقراءة 
٠‏ الصفوفة ثم رتب الصفوفة ترتيبا تصاعدیا . 


5 REM Arranging an Array in Ascending Order 
10 ІМРОТМ 

20 DIM X(N) 

30 FOR 1=1 TO N 

40 INPUT X(IO:NEXT I 

50 FOR I=1 TO N-1 

60 FOR Ј=1+1 TO N 

70 IF X(I)<=X(J) THEN 90 


۹۲ 


80 ۳2) 1۱ :2 6 ] ( <( ) J) : 2) (۸ 
90 NEXT J 
100 NEXT I 
110 FOR I=1 
120 PRINT X( 
130 NEXT I 
140 END 


TO М 
I); 


مشال ر٤‏ ( 


اذا كانت AS(N)‏ مصفوفة عناصرها عبارة عن اسماء اشخاص ء اکتب برناتجا 
لترتيب هذه الاسماء ترتيبا ابجديا . 


5 REM Arranging а list of names 
10 INPUT М 

20 DIM A$CND 

30 FOR І-1 TO М 

40 INPUT AS$CIO:NEXT I 

50 FOR I-1 TO N-1 

60 FOR J=I+1 ТОМ 

70 IF А%(І2<-А%(.)) THEN 90 

80 М%-А%( І):А%(І2-А%(.)):А%(.))-М% 
90 МЕХТ .) 

100 МЕХТ І 

110 FOR 1=1 ТОМ 

120 PRINT A$(I) 

130 МЕХТ І 

140 END 


ar 


مصفوفتان . اکتب برنامجا لقراءة الصفرفت : В.А‏ ثم جد 
١‏ الصفوفة ن) АФВ :c‏ = 0 
الصفوفة 10 В...‏ * 4 » ظ 


D 9 C واطبع المصفوفات‎ 
DIM А(2,22,В(2,2),С(2,2),0(2,2) 
FOR 121 TO 2 
FOR 21ل‎ TO 2 


READ А(1,.)2,В(1,.)) 
C(I,J)=A(I,J)+B(I,J) 
NEXT J:NEXT I 
FOR I=1 TO 2 

FOR J=1 TO 2 

D(I,J)=0 

FOR K=1 TO 2 

D(I, ا‎ +A(I,K)#B(K, J) 
NEXT K:NEXT J;NEXT I 

FOR I=1 TO 2 

FOR J=1 TO 2 

PRINT C(I,J);:NEXT J:PRINT 
NEXT I:PRINT 

FOR 1=1 TO 2 

FOR J-1 TO 2 

PRINT DCI,J);:NEXT J:PRINT:NEXT I 
DATA 2,-1,1,5,3,4,5,-2 


4t 


شال )3 ( 
اذا كانت ( ACM , N‏ مصفوفة ثنائية ء اکتب برنامجا لقراءة الصفوفة ثم جد 
مجموع کل سطر ثم اطبع اکبر مجموع . 


10 INPUT M,N 

20 DIM A(CM,ND,SCND 

30 FOR 1=1 TO M 

40 0 

50 FOR 21ل‎ TO N 

60 READ ACI,J) 

70 SCIOsSCIO*ACI,J) 

80 NEXT J 

90 NEXT I 

100 0 

110 FOR 1=2 TO M 

120 IF МАХ > 5)1( THEN 0 
130 МАХ-5(1) 

140 МЕХТ І 

150 PRINT "Мах = ';MAX 
160 DATA 2,-1,3,5 

170 END 


il 


اذا كان А‏ مصفوفة مربعة حيث : 


5 7 4 
А =| 3 97 
11 104 


qo 


اکتب برنا جا لقراءة الصفوفة ثم جد : 
1 - جموع العناصر الواقعة على القطر الرئيسي . 
2 - اطبع الاعداد الاولية الواقعة على القطر الرئيسي وتحتها . 


10 DIM (۰۱ 

20 FOR 1=1 TO З 

30 FOR 2-1 TO З 

40 READ ACI,J) 

50 IFI<> J THEN 0 

60 5=5+А(1,Ј) 

70 ІҒ 1<.) ТНЕМ 120 

80 FOR ۲۷22 TO А(1,.)-1 

90 IF A(I,J)=INT(A(I,J)/K)wK THEN 0 

100 МЕХТ К 

110 L=L+1:P(L)=A(1,3) 
NEXT J 


130 NEXT I 

140 PRINT ' THE MATRIX IS " 
150 FOR I-1 TO 3 

160 FOR J-1 TO З 

170 PRINT ACI,J):; :МЕХТ JIPRINT :МЕХТ I 
180 PRINT :PRINT 

190 PRINT " THE SUM ۲ 
200 FOR 1=1 TO L 

210 PRINT ۰ P(*';I;'02 ";P(1) 

220 NEXT I 

230 DATA 5,7,4,3,9,6,11,10,4 

240 END 


THE MATRIX IS 


574 
96 3 
11104 
THE SUM = 18‏ 
5 =)1 )م 
3 222 )م 
11 =)3 )م 
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1 مصفوفة ابعادها )3 4۶ ( اکتب برناجا ALY‏ : 

1 حاصل جع العتاصر الزوجية لكل سطر 

2 حاصل ضرب العتاصر الفردية لكل عمود 

2 - اکتب برناجا لح معدلات احدی الشعب اذا علمت ان کل طالب یدرس 

ستة مواضيع » ثم رتب الشعبة حسب العدل . 

3 - اکتب برنامجا لقراعة مصفوفة احادية ثم جد واطبع مربعات ومکعبات عناصر 

الصفوفة . 

с حيث‎ А Aya اکتب برناحا لقراعة‎ - 4 
3 0 1 
A=| 11-23 
5 ? 14 


ثم جد واطبع 
1 - جموع عناصر القصر 
2 عدد الاعداد الفردية منها 
3 عدد الاعداد الزوجية منها 
4 طدور المصفوفة A‏ 


av 


- البراسج الفرعية - 


البرامسج THE SUBPROGRAMES 2...» АЙ‏ 
البرنامج الفرعي عبارة عن جزء من البرنامج الرئيسي والذي يمكن استدعائه اكثر 
من مرة واحدة وفي مواضع مختلفة لاجراء عمليات معينة تتطلب تنفيذها طرات 
عديدة وبذلك تقل عدد خطوات البرنامج الرئيسي و توفر مواضع تخزین في وحدة 

الذاكرة الرئيسية . 

يستفاد ايضا من البرامج الفرعية لحل المسائل الكبيرة والمعقدة وذلك بتجزئتها الى 
مجموعة من المسائل الصغيرة والتي ترتبط بالبرنامج الرئيسي 
تقسم البرامج الفرعية الى : 


1 البرامج المكتبية ( الدوال الفرعية ) LIBRARY SUBPRGRAME‏ 

هناك برامج تدعئ برامج مكتبية DE‏ في ذاكرة کل جهاز وفي جزء خاص منہا 
تسمی مکتبة الجهاز . كل برنامج يقوم بعملیة حسابية يستدعئ عند الحاجة وفي اي 
موقع من البرنامج الرئيسي وان سعة المكتبة وعدد البرامج المخزونة تختلف من جهاز 
الى اخر . من هذه الدوال : 

X ايجاد الجذر التربيعى ل‎ : SOR (х) 

e" ایجاد قيمة الدالة الاسية‎ : ЕХР(х) 

X اماد القيمة الطلقة للمتغیر‎ : ABS( X) 

) ا حبریة ( الوجب او السالب‎ × SUI : SGN ) X) 

) مقاسا بالزوایا القطریة‎ ( X اجاد جيب الزاوية‎ : SIN (X) 

) القطرية‎ Ul, JU مقاسا‎ ( X امجاد جيب تام الزاوية‎ COS (x) 
× ايجاد ظل الزاوية‎ : ТАМ(х) 

X ايجاد اللوغاريتم الطبيعي ل‎ : LOG (x) 

RND (x)‏ : ايجاد عدد عشوائي بين صفر وواحد 

ІМТ(х)‏ + مجاد عدد الحزء الصحيح لعدد حقيقي 


تعتبر دالة INT‏ من الدوال المهمة في الرياضيات . تستخدم في کثر من العملیات 
الرياضية ومنها : 
1 - تقريب عدد حقيقي الى أقرب عدد صحیح وحسب العادلتل(5 .0 INT(X4‏ 


مثال : 


اذا كان 7.2 = فان 7 = INT (X+0.5)‏ 


INT ¢x+0.5) 


2- ایجاد الجزء الكسري Z‏ من العدد احقیقیوحسب العادلة 8 


Z = X - INTC X) 


شال 

اذا كان 12.321 X=‏ فان 2.321 Z‏ 

3 - تقريب الجزء الكسري لاي оде‏ حقيقي K‏ نى عدد N‏ من الراتب وحسب 
العادلة 


М -N 
INT(10 x M + .5 ) * 10 
مشال‎ 


قرب العدد 5.326657 = × الى ثلاث مراتب بعد الفارزة ( 3 (N=‏ 
N 3‏ 
(X x 10 + .5( = 5.326657 x 10 + .5 = 5326.657 + .5 = 5327.157‏ 


3 -3 -3 
ІМТІХ ж 10 + .5( w 10 = 532? w 10 = 5.327 


stel - 4‏ باقي القسمة لاي عددین صحیحین . اذا كان ۷ , X‏ عددان صحیحاز 
فان ( X - Y # INT( X / Y‏ = 2 هو باقی القسمه . 


۲ ۲ INC 9/7۱ =9-7=2 فان‎ ¥ =7 € X=9 oom 
ملاحظة‎ 

یکن استخدام قيمة Z‏ لعرفة ما اذا كان العدد2یقبل القسمة على ٩۲‏ اي مقارنة 
Z‏ مع الصفر . 


اذا کان0 = Z‏ فان ۷ یقبل القسمة عل لا“ 
اذا كانم + 2 فان × لایقبل القسمة Үр‏ 


مثال 
جد جموع الاعداد التي تقبل القسمة على 3 والتي تقم بين )1-20 ( 


10 5-0 

20 FOR 121 TO 20 

30 RzI-INTCI/3)x3 

40 IF 6۸۵0 THEN 60 

20 PRINT TABCIO;I;:SzS*I 

60 NEXT I:PRINT:PRINT :РРІМТ ' S= 5 
70 END 


2 الدوال الفر Functionsze‏ 


Y 
يستخدم هذا النوع من البرامج الفرعية عندما يحتاج البرمج لتعریف عملية رياضية او مجموعة‎ 
: ویفسم الى‎ Ih عملیات رياضية على شکل‎ 


4 - الدالة ذات سطر واحد SINGLE - LINE FUNCTION‏ 
یستخدم لتعریف عملية رياضية التي تتکرر فی اکر من موقع واحد بجملة واحدة 
وتکتب عادة في بداية او نهاية البرنامج الرئیسی وتستدعی بالاشارة ال اسمها في 
البرنامج . والصيغة العامة هي : 


DEF FN NAMEC V 3 V y... V ( = EXP. ) ۷ لا و‎ s... و‎ V D 
1 2 N 1 2 N 


حيث ان DEF‏ : كلمة البيسك الاساسية لتعریف الدالة ماحوذٰة من 
DEFINITION‏ 
ЕМ‏ : مختصر كلمة الدالة . 
NAME‏ اسم الدالة التي تستدعی ہا 
راو . . و لاو V‏ : اسیاء التغیرات الداخلة في العملية الرياضية 
N‏ 2 1 
N‏ 2 1 1 
l x‏ - 
ان بعض ال حاسبات الالکتر ونية Ј‏ الور کاء والتی تم ias‏ معظم برامج هذا 
الکتاب علیها لاتقبل اكثر من متغیر واحد في تعر یف الدالة ذات سطر واحد 
QU‏ 2 3 


X + 28 -X =‏ 
سب Geb,‏ لامجاد قيمة 2حیت ان 


10 DEF ҒМА(М) = N3 + 2 ж N^2-N 
20 INPUT Xs, Y 

30 LET Mi=FNA(X; 

40 (ЕТ M2=FNA(Y) 

50 LET М-М1/М2 

60 PRINT !7-%М 

70 END 


: J> 
اکتب برناجا لحساب حاصل —& عددین وحساب الباقي باستخدام دالة سطر‎ 
. واحد تحتوي على اكثر من متغير‎ 


10 REM Define and Find 

20 DEF FNS(I,J)=INT(I/J) 

30 DEF FNHCI,.DsI-J«FNSCI, J) 
40 5-ҒМ5(45,4):Н-ЕМН( 45,4) 
50 PRINT ۲52" :5, , ۲۳۶۲ ۸ 


ملاحظة 
ان استخدام فارزات متتابعة في السطر ونم ١‏ 50( تعني ترك حقول فارغة بحيث 


یکون تأثیر کل فارزة حقل . 


Ьу, 
- يمكن استخدام دالة ذات سطر واحد لتعریف تعبير رمزي في بعض الحاسبا‎ 
: dit ولیست كلها . والصيغة العامة تکون بالشکل‎ 
М DEF FN МАМЕ% = ۲ 
عبارة عن تعبير رمزي‎ : EXPRESSION 


r 


` مشال‎ 
DEF ҒМА% = "МАМЕ" == 
LET X$ = FNA$ 
LET Y$ = FNA$ 
PRINT X$ و‎ Y$ 
END 


958865 


"و دالة متعدد السطور MULTI -LINE FUNCTION‏ 
تستخدم هذه ДЕУ АЛАЙ‏ قيمة واحدة ha‏ نتيجة لتنفيذ جموعة عملیات 
حسابية 8 والصيغة العامة هی . 


М DEF FN МАМЕС ولا‎ V ...و‎ D 
1 2 


М ҒМЕМО 
DEF FN МАМЕ للداله وهي‎ ¿IL اي توجد‎ 


۷۰.۰ ,۷ : اسماء التغیرات الداخلة في العملیات الحسابية 
al; s ۷۵‏ الدالة ie AJ‏ 


ان القيمة الناتجة بعد تنفيذ العملیات الحسابية سوف تخزن في التغیر: الذي اسمه 
ЕММАМЕ‏ بالاضافة الى كونه Cet‏ للدالة ۔ 


ملاحظه 
ان دالة متعددة السطور غير معرفة للحاسية الالکترونیه الورکاء 


شال 


тен‏ سس جعت 


باستخدام دالة متعددة السطور اكتب برنايجا حساب الدالة F (X)‏ حيث : 


21 4 1 1 0ح‎ 
Р(Х) = 4 X= 0 
2 | ٩٩ (۵ 
10 INPUT X 


20 DEF FNACX? 

30 IF X»0 THEN 0 
40 IF Х<0 THEN 90 
90 FNA-1 

60 GOTO 110 

70 FNA-2xX*1 

80 GOTO 110 

90 FNA=2xABS(X)+1 
100 FNEND 

110 PRINT'X','FOO0* 
120 PRINT X , FNA(X) 
130 GOTO 10 


شال 


اکتب برنامجا فرعیا لايجاد N! N!‏ ( 


= 1۳2 ... w(N-1)xN ) ١ 


DEF FNX(ND 
F=1 

FOR 1-2 TO N 
۲-۴ [ 

МЕХТ 1 

FNX=F 

FNEND 


55588835 


3 الروتينيات الفرعية SUBROUTINES‏ 


لكتابة البرنامج الفرعي هناك طريقة اخریٰ اكثرعموما وهي الروتينات الفرعية . 
افدف من استخدامها لايختلف عن هدف استخدام البرامج الفرعية الاخری ‏ 
ولكن طريقة كتابة الروتين الفرعي لاتخضع لنفس القواعد الدقيقة التي تخضع فا 
تعاريف البرامج الفرعية الاخرى < حيث ان الروتین الفرعي قد يبدأ بأي امر من 
اوامر لغة البيسك ولاداعي لبدء البرنامج الفرعي بامر خاص ولكن المهم ان ينتهي 
الروتین الفرعي بامر هو RETURN‏ أي العودة الى البرنامج الرئيسي وال نفسن 
الکان الذي توقف عنده قبل الانتقال الى الروتین الفرعي بعد الحصول على النتائج 
المطلوبة من البرنامج الفرعي . يتم الانتقال الى الروتين الفرعي من البرنامج الرئيسي 
باستخدام ايعاز GOSUB‏ وتکون الصيغة للروتين الفرعي كالاتي : 

GUSUB M 


EET. 

1 - یکن للبرنامج الواحد ان يحتوي على JS‏ من روتین فرعي . 

2 - يکن ان يضم روتين فرعي روتين فرعي اخر . 

3- غالبا ماتوضع عبارات الروتين الفرعي في le‏ البرنامج اي بعد كلمة END‏ 
ولكن تنفيذها تتم قبل نہایة البرنامج . 

4 يمكن الحصول على اكثر من نتيجة واحدة عند استخدام الروتين الفرعي . 

5 لايقتصر عمل الروتين الفرعي على اجراء العمليات الحسابية فقط . بل يمكن 
استخدامه في العمليات المنطقية ايضا . 


مشثغال(١)‏ 
اكتب برنامجا باستخدام روتين فرعي لايجاد مساحة دوائر بانصاف اقطار مختلفة على 
التوالي : 10,8,6,4,2 . 12 


5 REM Find The Area of a Circle 
10 ҒІ-22/? 

20 FOR Р-2 TO 12 STEP 2 

30 008 70 

4C PRINT °" Area ="; 


50 NEXT R 

60 END 

70 REM SUBROUTINE STARTED 

80 ۵2۳ 2 

90 RETURN 
Area = 12.571429 
Area = 50.285714 
Area = 113.14286 
Area = 201.14286 
Area = 314.28571 
Area = 452.57143 


(Y) d 
V ثم جد قيمة‎ Z(10), Y (10). X (10) اکتب برنامجا لق رأ ةالمصفوفات‎ 


Dc 


10 
2 
а= 
ү = -izl ہے‎ 
) “7, 5 هو‎ 
4. Ha / 1 
іж1 2-1 


۱ - باستخدام دالة فرعية 


10 DEF FNFCA,B) 

20 ПІМ A(10),B(10) 

30 5-0 

40 FOR 121 TO 0 

50 5-51 0 

60 МЕХТ 1 

70 FNF=S 

80 FNEND 

90 DIM Х(102,ҮХ(102,7<10) 
100 FOR 1=1 TO 10 
110 INPUT XCI2,YCIO,ZCI?:NEXT I 
120 M1-FNFCX,X) 

130 М2-ҒМЕ(Ү,2) 

140 M3-FNF(CZ,Z) 

150 V-SQR(CM1)/M2xM3 

160 PRINT 'uz';V 

170 END 


NA. 


,ACND 
І):МЕХТ I 


І):МЕХТ I 


(1):МЕХТ I 


INPUT N 
DIM Х(М),Ү(М2,2(М) 
FOR 1=1 TO М : 
INPUT X(1):A(1)=X( 
GOSUB 170 
M1=S 
FOR I=1 TO N 

INPUT YCI):ACI)=Y( 
GOSUB 170 

M2=S 

FOR I=1 TO N 
INPUT Z(I):A(I)=Z 
GOSUB 170 

M3=S 
V=SQR(M1 ) 3 
PRINT "V= ';V:END 


REM Subroutine started 


9“ 


5-0 

FOR 1=1 TO М 
S=S+A(I):NEXT I 
RETURN 


(Y) J 
В,А حاصل ضرب‎ У نفس البرنامج الفرعي‎ 


10 GOTO 110 

20 REM subroutine 

30 REM DIM ACM,ND,BCN,L) 

40 FOR 1=1 TO M 

50 FOR 2-1 TO L 

60 C(I,J)=0 

70 FOR К-1 TO N 

80 C(I,J02CCI, D *ACI,KOxBCK, J) 
90 NEXT K:NEXT J:NEXT I 

100 RETURN 

110 INPUT M,N,L 

120 DIM A(M,N),B(N,L),C(M,L) 
130 FOR I=1 TO M 

140 FOR 21ل‎ TO N 

150 INPUT A(I,J):NEXT J:NEXT I 
160 FOR 12-1 ТОМ 

170 FOR J=1 TO L ° 

180 INPUT B(I,J):NEXT J:NEXT I 
190 GOSUB 20 

200 FOR I=1 TO M 

210 FOR 21ل‎ TO L 

220 PRINT C(I,J); 


230 NEXT J 
240 pRINT :NEXT I 


۱ 


М М! 
R1 = |. РЕТТЕ 
1 ІІМ = ۱ 


2 - ادا S‏ ( 100 ) ۸ . ( 100 )8 . اکتب برنايجا لقراءة الصفوفات ۰۷ В.‏ 


ثم جد معدل حل ددعم فة باستخدام روتين فرعي . 


: »من المعادلة‎ Y aus لانجاد‎ UeU P اكتب‎ - 3 


5/ 3 
Y = V X +23 


پاستخدام دالة فرعية . ثم اطبع فيمة Y‏ 
q‏ - اکتب روتينا فرعیا ساب 


И X -X 
Sinn x = е — CES 


1 


ثم اسب برنا حا رلیسیا لاستدعاء الروتی a e ei‏ ساسا 


.. 


Z = (xsinh ( x) - 2 Sinh ( 2x ) Sinh ( 3) 


ves 


الفصا السابسع 


لسك 

А 4‏ 4 البي 

آخری في bs‏ 

يعازات ЖЕ s‏ ۱ 
^ امر فى لغة الب 

۱ ”> 2 لبيسك مفاتیح 


التحكم 


4 ایعازات اخرئ في لغة البيسك 


1 /ايعاز RESTORE‏ 
يستخدم هذاالایعاز لاعادة قراءة القيم التي تمت تحدیدها بايعاز DATA‏ الصيغة 
العامة هي М RESTORE:‏ 


مشال 


في هذا المثال يتم تحدید قيم Y , X‏ بواسطة DATA‏ . في سطر رقم 70 وبعد 
اجراء اللازم وباستخدام ایعاز RESTORE‏ يتم اعطاء نفس القيم الى المتغيرات 
M,N‏ وذلك بالرجوع ال عبارة رقم 70 . 


TAB ايماز‎ 2 


یستخدم هذا الایعاز لتحدید بداية موقع الطبع بالنسبة للنتائج على الوسط 
الخارجي ( اي تحدید العمود الطلوب طبع النتائج عليه ) » ویستخدم هذا الایعاز 
فقط مع ایعاز PRINT‏ . 
الصيغة العامة هي TAB(X)‏ 


۱۱۷ 


حيث ان X‏ عبارة عن : 


1 - ابت عددي 

ласа - 2‏ عددي 

3 - تعبیر حسابي 

10 INPUT A — 
20 PRINT TAB(3);A — 

30 END 

في هذا الثال يتم تعریف التغیر А‏ ومن ثم طبعه في العمود رقم 3 وذلك باستخدام 
ایعاز TAB‏ 

JC 


10 READ و۱۶۷۶‎ 2 
20 PRINT. ТАВ (2);X$;TAB (8)#Y$;TAB )18( و‎ Z 
30 DATA ‘HIS ۰ و‎ "АУКАСЕ =", 0 


بعد تنفيذ هذا البرنامج ستکون صيغة الطبع كالاتي : 


iyu 


يمكن استخدام هذا الایعاز لرسم اشكال هندسية او لطبع حروف کبيرة , 


۱۱۸ 


)۱( JC 


اکتب برناجا لطبع حرف Z‏ 


10 FOR І-1 TO 5 

20 PRINT ТАВСІ); "ж"; 
30 МЕХТ І 

40 PRINT 

50 FOR 124 TO 1 STEP -1 
60 PRINT 1 "×۰ 
70 NEXT I 

80 FOR 121 TO 5 

90 PRINT TABCIO;'x'; 
100 NEXT I 

110 END 


۱۹ 


( Y) مشال‎ 


اکتب برنامجا لطبع الشکل التالي : 


10 FOR ۲21 TO 5 

20 FOR 21ل‎ TO I 

30 PRINT TAB(5);'m'; 

40 NEXT J:PRINT:NEXT I 

50 FOR 121 TO 4 

60 FOR 25ل‎ TO 1+1 STEP -1 

70 PRINT TAB(S)0;m' ;:NEXT J:PRINT :NEXT I 


شال 
اکتب برنا جا یکتب. جدول. تحويل الانجات ال سنتمترات من )1-5( انجا . 


10 PRINT 'Inches';TAB(8);'Centemeters' 
20 PRINT '------ *,TABCO80;'----------- ы 
30 FOR М-1 TO 5 

40 СМ-Мж2.54 

50 PRINT ТАВ(22;М;ТАВ(102;СМ 

60 МЕХТ М 

70 END 


Inches Centemeters 


1 2.54 
2 5.08 
3 7.62 
4 10.16 
5 12.7 


3 ایعاز SPC‏ 
متغير ومتغير اخر والصيغة هي : SPC ) X)‏ 
حیث ان X‏ اما ثابت عددي » лаа‏ عددي او تعبیر حسابي 


Jus 
10 .%0 ооо © © 
20 PRNIT X ;5РС(4);Ү 
MID$ € RIGHTS £ ۶۶ ايعازات‎ 4 


يقوم هذا الايعاز باخذ ( سحب ) عدد معين من الحروف من متغير رمرتي ومن 
الیسار والصيغة العامة هي : LEFT$( ds, x)‏ 
حيث ان 04 : هو التغیر الرمزي ( الغير العددي ) 


X‏ : عدد الحروف المطلوبة 
مشال - LET A$‏ 10 
LET B$ = LEFT$(A$,3) —‏ 20 
B$‏ و" = PRINT ' B$‏ 30 
END‏ 40 


في هذا الثال يتم تحدید 8¥ من Af‏ وذلك باخذ ا حروف الثلالہ Ari‏ ومن 
الیسار . وعند تنفیذ البرنامج تکون النتيجة كا يلي : B$zABC‏ 


مک 


RIGHT$ ایمساز‎ 


—— 
یقوم هذا الایعاز باخذ ‏ سحب ) ade‏ معين من ا حروف من متغير غير عددي 
ومن اليمين الى الیسار والصيغة العامة هي : 
RIGHTS ds, x)‏ 


شال 


10 LET A$ = 712345" 
20 FOR Ісі 


10 5 
30 PRINT RIGHT$(A$5I) : NEXT I 
END 


يتم طبع الارقام بالشکل التالي : 


MID —‏ 
یقوم Ма‏ الایعاز باخذ عدد معين من ا حروف ومن موقع معين من متغير غير عددي 
والصيغة العامة هی : 

d$ 4 Y 5. X)‏ )1042م 


حيث d$‏ : متغير غير عددي 
Y‏ : الرقع الراد تحدیده 


X‏ : عدد اخروف ال مطلوبة 


۱۳۲ 


5 ايعاز 1.0871 


يحدد هذا الايعاز الموقع الحقيقي لكل رمز على الشاشة اي توجيه مؤشر الشاشة 
الى النقطة الطلوبة ر X‏ بر ۷ ) . 
ان شاشه کل جهاز مقسمة الم مجموعة من الوحدات وان هذا التقسیم يختلف من 
جهاز الى اخر . فی جهاز الورکاء الشاشة مقسمة الى مجموعة من الوحدات وان الدی 


: و ×كلاتي‎ YJ 
0 < x < 39 
0 < Y < 19 
مثال‎ 
10 X$ = "1254688 ' == 
20 CLS : FOR 1=1 TO 5 
30 LOCATE 3+1 و‎ 1-1 
40 PRINT (ЕҒТ%(Х691) 
50 NEXT I ЕМ 
ال‎ 7 


اكتب برنانجا لطبع الاعداد من 1 - 10 des‏ شكل المثلث التالي : 


10 READ م :لا‎ - 1 
20 FOR 1 - 1 TO М 

30 LOCATE 25 - 1910 + I 

40 FOR 2-1 TO I 

50 IF P >N THEN 90 

60 PRINT Py : P= P + 1 

70 NEXT J : PRINT : NEXT I 


v YY 


2 الاوامر في لغة البیسك COMMANDS IN BASIC‏ 

هناك مجموعة من الاوامر التي das‏ للحاسبة الالکترونية عن طریق لوحة 
cu‏ مباشرة اثناء تشغیله »دلك لاداء اعراص حتلفة وحسب نوع الامر xA.‏ 
الايعازات عن الاوامر بان الایعازات يجب ut‏ تيد برقم السطر بینم| الاوامر يجب ان 
[as‏ تحرف ابجدي . من هذه الاوامر 3 


LIST COMMAND الامر قائمة‎ 1 


مر اجعة البرنامج واجراء التعديلاات والتغب ات اذا زم الامر : FREI "p‏ ھی 


LIST ) البرنامج كمنه‎ УУ 
LIST NN; gal لاظهار سطر‎ ( 
LIST N - ۳۱ MSN لاظهار الاسطر‎ ( 
ملاحظة‎ 
عندما يكون المطلوب طبع البرنامج على ال ری بواسطة الطابعة الخطية یسنخدم‎ 
LLIST الامر‎ 


RUN COMMAND 1-2 الامر‎ 2 


باستخدام هذا жу‏ 2 > تنفيل البرنامج д‏ يكون جاهزا Jat‏ واحصول 
de‏ النتائج اخطلوبه ودلك بقراءة الايعازات الى Lrs‏ الى نامج ثم تنفيذ كل من 
هده الابعازات . والصيعة العامة هى : RUN‏ 


SAVF COMMAND الامر احفظ‎ 3 


بعد ادخال وتنفیذ البرنامج والتأكد من صحة البرنامج يمكن حفظ البرنامج على 
الاوساط المساعدة للخزن مثل القرص اللین . شريط التسجيل . . . الخ تحت اسم 
معين باستخدام الامر احفظ 5 
والصيغة العامة هى : SAVE(CSAVE) NAME‏ 
EST : NAME‏ المختار للبرنامج عند حفظه في جزء من الذاكرة 
SAVE‏ : للخزن de‏ القرص اللین 
CSAVE‏ : للخزن على شريط التسجیل 


LOAD: COMMAND الامر احمل‎ 7.2.4 


يمكن استرجاع البرنامج الخزون على القرص اللین ( شریط التسجیل ) ال 
ذاكرة الحاسبة Ее‏ اسم البرنامج باستخدام الامر احمل 
الصيغة العامة هي LOAD (CLOAD)_ ‘NAME‏ 
МАМЕ‏ : اسم البرنامج الراد استدعاءه ә‏ ذاكرة الحاسبة 
LOAD‏ : لتحمیل البرنامج الخزون على القرص — 
CLOAD‏ : لتحميل البرنامج الخزون ME de‏ التسجيل 


NEW COMMAND الامر جديد‎ 5 


يؤدي هذا У‏ الى مسح جميع البرامج ج المخزونة في ذاكرة اخاسیه والصيغة العامة 
هي : NEW‏ 


DELETE COMMAND الامر احذف‎ 6 


يمكن حذف سطر او АР уь‏ اسطر من البرنامج عند الطلب باستخدام الامر 
"حدف . و الصيغة العامة هی : 


DELETE М ) N رقمه‎ Ф371 لحدذف السطر‎ ) 
DELETE N - M ( Modi N من‎ жәй әз М) 


y! 7.2.7‏ اقصسل KILL COMMAND‏ ۱ 
هي : Е 5 КІМ, МАМЕ‏ 
7 : اسم البرنامج السراد مسحه 
ملاحظ 2 
جهاز . 
لوحة الفائیےح ومفاتیح التحکم 
ان لوحة المفاتيح تحتوي على مجموعة من الرموز الخاصة بالاضافة ال جموعة من 
ماد ج تسم" xl‏ ا 5 
KEYARRAY bau а аз‏ 


ка 525555 7 
۳... ™™ LLIS 


فیما يلي اهم مف تبح نسيطرة والتي نراها على لوحة المفاتيح مع وظيفة کل مفتاح : 
1 - مفتاح RETURN‏ 
یستخدم لاد سطر الکتوب الى الحاسبة وخزنہا في الذاكرة ومن ثم الانتقال الى 
صطر جدید - 

2مفتاح SHIFT‏ 
يتم استخدام Да‏ الفتاح عندما يراد ادخال الرموز الوجودة T‏ القسم العلوي من 
مفتاح الرموز وذلك بالضغط على هذا المفتاح و مفتاح الرمز المطلوب في ان واحد . 
3 - مفاتيح الام 
وهي اربعة مفاتيح يحمل كل منها a=‏ يتجه الى احد لاتجاهات الاربعة Je)‏ « 
الاسفل . اليمين . اليسار ) وعند الضغط على اي منها يتحرك المؤشر على الشاشة 
بنفس اتجاہ السهم المرسوم . 
INS gi - 4‏ : من INSERT‏ 
يستخدم لادخال رموز جديدة بين رموز اي سطر . 

DELETE jo: DEL 2-5‏ 
يستخدم لمسح رمز واحد او اكثر من رموز السطر . 
HOME . CLR ct -6‏ أو HOME /CLEAR‏ 
يستخدم هذا المفتاح لتنضيف الشاشة كليا وعندها يقف المؤشر في الزاوية العليا 
الیسریٰ من الشاشة . 
هناك مفاتيح اخرى عى لوحة مفاتيح كل جهاز حيث يقوم كل مفتاح بعملية ла‏ » 
تختلف هذه المفاتيح من جهاز الى جهاز اخر . 
ملاحظة 
٠‏ کن تعديل البرذمج اما بأضافة سطر جديد وادخاله بعد اعطائه رقا مناسبا ثم 
الضغط على مفتاح ( RETURN‏ ) . ان الرقم الذي يعطئ للسطر يجب ان يكون 
واقعا بین رقمي السصرين اللذين يضاف بينها السطر الحديد . او حذف سطر معين 


۱۳۷ 


وذلك نادحال رقم ذلك السطر ثم الفنقط على مفتاح ( RETURN‏ “ کذلك 
S‏ تعديل سطر معن T‏ البرنامج بتوجيه المؤشر de‏ ذلك السطر SJ ҚАР‏ 
المطلوب تعدیله ثم الضفط عل مفتاح ( (RETURN‏ . | 


تمارين 


| - اکتب د نات لطع ا حروف ۵ D С » 8 e‏ وبالشكا التالى : 


ТАВ ақынды ولت الي هی‎ Ы ж 1% 


الفصل الثامن 


امثلة — ¿ç‏ في الریاضیات 


مشال (۱) 
اکتب 20 لتحویل الزاوية مقدرة بالتقدیر الزاوی ال تقدیر نصف قطرى А‏ 


5 PRINT 'This program جم وود -:-4 ع 3ه مومع‎ into rsdis 
10 РІ-22/7 

20 INPUT 'input the dearsee';» 

30 Ү-ХжРІ/180:РКІМТ "'vz';: 

40 END 


( Y) J 
(Fibo- من حدود متسلسلة فیبوناشی . متسلسلة فیبوناشی‎ N اکتب برنامجا حساب‎ 
عبارة عن اعداد صحيحة بحيث ان كل عدد يساوى بجموع العددین‎ nacci ( 
, السابقين له‎ 


10 Lol : ۲۱ 

ZU INFUT N 

30 FOR 1-1 ТОМ 

40 M-L*K:LzK:KzM 
50 PRINT M :NEXT I 


(Y) شال‎ 


5 ۸ 
اوجد قيمة الجموع التالي : 271702 77 
3ж2 3‏ 1-1 


10 0 

20 FOR Ізі TO 3 
30 FOR 2-2 TO 4 

40 FOR ۲23 TO 5 

50 S=S+I+.+K 

55 NEXT K:NEXT J:NEXT I 
60 PRINT 'Sz';S 

то END 


Ua 


۱۳۱ 


مشال )£( 
اکتب برنامجا لايجاد الضاعف الشترك الا — ) Least Common Multiple‏ ) 
بين العددین š L, K‏ 


10 INPUT ۴ 

20 21 

30 ۷ 

40 IF M=INT(M/K)wK ТНЕМ 60 

50 J=J+1 ۱60۳0 0 . ۱ 

60 PRINT "Тһе Multiple least common between ';Li صر ۱۲۱ص‎ 


(9) متال‎ 
بین الصفرو‎ Каз 3 من الارقام العشوائية الصحيحة‎ N اكتب برناعا للحصول على‎ 
)10( 
10 INPUT М 
20 FOR L=1 TO N 
30 Z=10%RND(1) 
40 0 
50 PRINT I:NEXT L 
60 END 
( ` y J 


اکتب برنا حا لتحویل العدد X‏ من ای نظام ذات اساس B‏ الى النظام العشری . 


10 INPUT "INPUT THE NUMBER AS А STRING AND THE BASE 8۵ 
20 N=LEN(A$ ) ( 0 

30 FOR Ізі ТОМ 

40 M$=MID@(A$,I,1) 

50 K=VAL (M$) 

60 5=5+КиВ^ (1-1) :МЕХТ I 

70 و بات‎ ‘THE NUMBER ІМ DECIMAL 2۰5 


۱۳ "Nes 


مشال(۷) 
اکتب برناجا لقراءة الازواج الرتبة الثمانية واطبع الازواج التي حاصل حع احداثيه 
یقبل القسمة على خمسة . علا بان الازواج الرتبة هي : 


(9,1), (12,3), (5,5), 5,10, (06,22, (2,7), 0,22, (7,1) 


10 FOR 121 TO 8 

20 READ X,Y :S=X+Y 

30 RzS-5*INT(CS/5) 

40 IF RX»0 THEN 60 

50 PRINT '(';X;','5Y5;' D" 

60 NEXT I 

70 DATA ۱ ۱ 7.2.3, 1 
80 END 


۱ (^) JUL 
كل مرة يجب ان نعرف ما هو‎ ds ç اكتب برنامجا لرمى زهر النرد عدد من الرات‎ 
. الرقم العشوائي الناتج من رمي زهر النرد‎ 


10 INPUT "INPUT АМҮ МОМВЕЕ”;М 

20 FOR 1=1 TO М 

30 R=INT ) 630۱۱0 )1 (+1۲۳ 

50 INPUT "INPUT THE EXPECTED RANDOM NUMBER';X 
60 IF X=R THEN 80 

70 PRINT 'NO,the Right Number ۲ 

75 GOTO 90 

80 PRINT "You Are Right" 

90 NEXT I 

100 END 


۱۳۳ 


مشال (۹) 


اکتب برنامجا لتحویل القراءات التالية ؛ 
45 , 9823 , 78 , 0 , 155 , 187 


من السنتیمتر الى Хә‏ وسنتمتر ۰ 


5 REM Relation betueen Centemeter % Meter 
10 FOR I=1 TO 6 

20 READ L 

30 IF L=0 GOTO 60 

40 M-INTCL/100):C-2L-INT(CL/100)2*x100 

50 PRINT L;' = ';M;' Met. AND ۲ ۳ 
60 NEXT I 

70 DATA 187,155,0,78,9823,45 


(V) 0 
` اکتب برناجا لايجاد قيمة 2 العروفة‎ . ON-GOTO باستخدام ايعاز‎ 
. بالشکل‎ 
2 
( as2bx«dx ( Sinz if х--і 
Z = x + 2 if x= 0 


[ех | ifx=1 


10 INPUT A,B,D 

20 INPUT X 

30 ON X+2 GOTO 40,50,60 

40 Z=(A+2wBwX+DwX“2)%SIN(X):GOTO 70 
50 Z=X+2:GOTO 70 

60 7-АВ5(ЕХР(Х);) 

70 PRINT “When 2 ۶ " -”;7 
80 GOTO 20 

90 END 


^ 


۱۳ 


مشال (NV‏ 
اكتب برنامجا لايجاد جدول الضرب للاعداد من )0,9( ثم اطبع الجدول 


10 DIM 1 ( 

20 FOR 120 TO 9 

30 FOR 20ل‎ TO 9 

40 IF 1-0 THEN ACI,J02J:GOTO 70 
50 IF 20ل‎ THEN ACI,J0-I:GOTO 70 
60 A(I,J)=IwJ 

70 PRINT ACI,J0; TABC3*J*1) 

80 NEXT J:PRINT 


90 NEXT I 

0 1 2 34 56 7 8 9 

112 34 5 6 7 8 9 

224 6 8 10 12 14 16 18 
336 9 12 15 18 21 24 7 
448 12 16 20 24 28 32 36 
5 5 10 15 20 25 30 35 40 45 
6 6 12 18 24 30 36 42 48 54 
7 7 14 21 28 35 42 49 56 63 
8 8 16 24 32 40 48 56 64 2 
9 9 18 27 36 45 54 63 72 81 


(AY) JL 
: اكب برنامجا بلغة البيسك لایجاد الجموع التالي‎ 


10 REM FIND DOUBLE SUM 

20 FOR M=1 TO 3 

30 FOR K=1 TO 3 

40 N=K:GOSUB 100:A=R 

50 N=M:GOSUB 100:B=R 

60 N=K+M:GOSUB 100:C=R 

70 S=S+AwB/C :NEXT K:NEXT M 
80 PRINT 5 


90 END 

100 REM SUBROUTINE (09 
110 R=1:FOR 122 TO М 

120 R=RwItNEXT I 

130 RETURN 


(Ju 
من النظام العشري اي نظام اخر‎ N اکتب برناجا لتحویل العدد‎ 


10 ЕБІН! : mis propran transfers "from decimal " 
into any " 
20 سن‎ A$(1000) 00 ыы 
NPUT "input the number to b "s 
40 INPUT "input the base"; d cM 
50 XsINTCN/B)O : PN-Xx x8 
60 J=J+1 
4 FOR 1-0 TO B 
If R-I THEN B ce 5 000 
ود ی‎ ТЕСІ) :сото 100 
100 IF X=0 THEN 120 
110 М-Х:50Т0 50 
120 FOR I-J TO 1 STEP -1 
130 PRINT A$CID::NEXT I 
140 END 


۱۳۹ 


مشال (۱4) 
اکتب برنامجا لطع الشکل التالي : 


10 FOR 1=1 TO 4 

20 LPRINT ТАВ(4-12;"Ө”;ТАВ(4);" ©" : 
30 LPRINT ТАВ(144); "©" :NEXT І 
40 ҒОК 2-1 70 4 

50 LPRINT ۲۰ : 

60 LPRINT TABC4); "0"; 

65 LPRINT ТАВС820: "@':МЕХТ ل‎ 
70 ҒОР 1-1 ۲۵ 3 

75 LPRINT "©"; 

80 LPRINT TABC4-I125;'06*; 

90 ІРКІМТ ТАВСІ+42; "Ф"; 

100 LPRINT ТАВ(Ө2;"Ө“:МЕХТ I 


сод 

اکتب برنامجا یقوم بقرأوةجموعة من الدرجات الثویة والفهرنهايتية وحسب ما /Ж‏ 
ازاء کل درجة ویقوم بتحویل الدرجات المثوية ال الفهرنبايتية وبالعکس » 
باستخدام العلاقات التالية : 


Се1віув = 5/9 )۶ - 32) 
Fehermheit = (9/5 * C) + 0 


۱۳۷ 


اذ علمت ان الدرجات المعطاة هی : 


120% , 557 , 420 , 307, BOF , -330C , 1527 , ۶ 
OF , -32? , -240, 360C 


10 FOR І-1 TO 10 

20 READ T,T$ 

30 IF T$s'F*' GOTO 70 

40 Fz(9/5xT)432 

50 PRINT Т, "ІМ Cel.=",F, "In ۴ 

60 GOTO 90 

70 Cs5/9*(T-32) 

80 PRINT T,'In feh.-',C,'In cel." 

90 NEXT I 

100 DATA 80,'F*',30,'C',42,'C',55,'F' 
110 DATA 120,'F*',360,'C*,-24,'F',-32,'F" 
120 DATA 0,۲۴ ۲۱100, '*F*,152, 'F',-350, "С" 


80 In feh.= 26.666667 In cel. 
30 IN Се!.- 86 In feh. 
42 IN Cel.- 107.6 In feh. 
55 Іп feh.- 12.777778 Іп cel, 
120 Іп ҒеҺ.- 48.888889 Іп cel, 
360 ІМ Се1. = 680 Іп ۰ 
-24 Іп feh.= -31.111111 In cel. 
-32 In feh.= -35.555556 In cel. 
0 In Ғеһ. = -17.777778 In cel. 
100 In ҒеҺ.- 37.777778 In cel. 


۱۳۸ 


ا 

اسیا Ra an‏ — ان 

N =9‏ )21,11 و9,0,34,2 و 5,6,7 حم ثم حول الصفوفة ال مضفوفة ثنائية 
L =F ) “ы B(M,L)‏ * لا 
ثم اطبع المصفوفة الثنائية ( B(M,L)‏ 


10 READ N,M,L 

20 DIM А(М),В(М,!.) 

30 FOR 1-1 TO N 

40 READ ACIO:NEXT I 

50 PRINT 'The One Dimentional Array is':PRINT 
60 FOR 1=1 TO М 

70 PRINT ACIO;:NEXT I:PRINT 

80 P=1 

90 FOR І-1 TO M 

100 FOR 21ل‎ TO ا‎ 

110 B(CI,J)2A(CP) 

120 Р-Р-1 

130 NEXT J:NEXT ۲ 

140 PRINT 'The Tuo Dimentional Array is':PRINT 
150 FOR 121 TO M 

160 FOR 2-1 TO L 

170 PRINT BCI,J2; :NEXT J 

180 PRINT :NEXT I 

190 DATA 9,3,9 

200 DATA 5,6,7,9,0,34,2,21,11 


The One Diuentional Array is 
5679034221 11 

The Tuo Dimentional Array is 
567 


9 0 34 
2 21 11 


۱۳۹ 


( V) JU 
: اکتب برنامجا لايجاد قيمة الخطا في عملية البتر عند حساب قیمة الدالة‎ 


۲ ۰ ] - 517۲ X 
. ے ۽ باستخدام متسلسلة تایلر‎ ДІ. тайы» 
6 


PRINT “This Program Calculates The Truncation Error" 

PRINT 

DEF FNF(X)=1-COS(X) 

INPUT N 

6-0:Х-22/28 

FOR 122 TO М STEP 2 

Ез1 

FOR 22ل‎ TO I 

F=F%Jt:NEXT J 

S=S+(-1)“((I+2)/2)w%wX“I/F 
I 


NEXT 

EX=FNF(X) 

ЕР-ЕХ-ЕР 

PRINT "The Exact Value= “ЕХ 
PRINT "Тһе Aproximate Value= “ЗЕР 
PRINT “The Error Values "ЕК 


This Program Calculates The Truncation Error 


The Exact Value= .29311679 
The Aproximate Value- .29279358 
The Error Value» 3.2320188E-04 


مشال (АА;‏ 
اوجد قيمة уә‏ 5 اي ان 6-5-0 ) بحیث ان نسبة الخط 
اقل من 105 ء بطريقة نیوتن - رافسن е‏ علا بان القيمة التقريبية للجذر 5 . 2 ۰ 
ثم قرب الناتج الى خمسة ارقام عشرية و احسب ade‏ التکرارات للحصول على HH‏ 

المطلوب . 
ملاحظطےة 
طريقة نیوتن - رافسن هي : 


f 
In" X, - 82 (2 = 0,1,2,... 


جد : هي قيمة تقريبية اولیسه 
naQ‏ : هي قيمة تقريبية افضل من In‏ 
E(X)‏ قيمة الدالة عند І-ї,‏ 
f(x, )‏ : قيمة مشتقة الدالة. عئه XX‏ 


10 REM FIND THE ROOT BY NEUTEN RAPHSON METHOD 
20 DEF FNF(X)=X“2-5 

30 DEF ЕМб(Х)-2жХ 

40 Х0-2.0:1-0 

50 F1=FNF(X0):F2=FNG(X0) 

60 X1zX0-F1/F2 

70 ІҒ(Х1-Х02<1Е-08 THEN 90 

80 X0=X1:I=I+1 :GOTO 50 

90 Хі-Х1%1075:Ү-іІМТ(Х1):Ү-Үж107(-5) 

100 PRINT “Тһе ۳۵۵2۱۷۱۲ With 6۳۳۵ ۴ 
110 PRINT "The Number of Iterations-';I 

120 END 


The Rootz 2.23611 With ۶۳۳۵۳1 
The Number of Iterations- 


ҒА 


مشال ) 4 ( 
اذا كان ۸ , ط متجهان ومعرفان کالاتی : 


A= (a a 43)= (5 3 2) 
B= (b4 b Ъу) = (4 1 1) 


اکتب lel y‏ ساب وطبع : 
۱-حاصل ضرب القياسي A.B‏ ین هط زه Be)‏ 


A . B طول کل من المتجهين‎ - Y 
كل من ا متجھین و اتا‎ 


۰ use جیب تمام الزاوية المحصورة بين‎ -Y 


А.В 
jaj ۰ |B] 


REM A,B VECTORS 
READ N 


ОІМ А(М),8(М) 
FOR I=1 TON 
51=0:52=0:53=0 
READ АСІ),В‹І) 
5-2-1-0 0 
52=52+А(1)^2 
٩323+) 3 
NEXT I 
LA=SQR(S2) 
LB=SQR(S3) 
=S1/(LA#LB) 
PRINT "THE DOT РКООЮСТ-“;51 
PRINT 'THE LENGTH OF A=";LA 
PRINT "THE LENGTH OF B-';LB 
PRINT "THE ANGLE BETUEEN А AND B-';T 
DATA 3 
DATA 5,4,3,1,2,1 
END 


170 
180 


مشال ) (Y:‏ 
اکتب پرنامجا لقراءة مصفوفه ثنائية ( A (M ,N‏ ثم حول الصفوفة الثنائية ی 
مصفوفة احادية B(L)‏ حیث (L = M * N)‏ واطبع الصفوفة الاحادية . 


10 READ M,N ۱2 

20 DIM A(M,N),B(L) 

30 Р-1 

40 FOR І-1 TO M 

50 FOR J=1 TO N 

60 READ AC1,J) 

70 B(P)=A(1,J) 

80 P=P+1 

90 NEXT J:NEXT I 

100 PRINT "The Тыс Dimentional Array is ':PRINT 
110 FOR 1=1 TO M 

120 FOR 21ل‎ TO N 

130 PRINT A(1,J);:NEXT J:PRINT:NEXT I:PRINT 
140 PRINT “The One Dimentional Array is':PRINT 
150 FOR Iz1 TOL 

160 PRINT BCIO;:NEXT I 

170 DATA 3,3 

180 DATA 4,5,7,2,9,0,2,8,8 

190 END 


The Two Dimentional Array із 
4 5 7 


2 9 0 
288 


The One Dimentional Array із 


4 5 7 2 9 0 2 8 8 


(Y) J— 


اذا كان UJ‏ ثلاث احرف A,B,C‏ اکتب برنامجا لطبع جميع الترتیبات المکنة 
هذه ا حروف . 


10 PRINT 'Arrang any three Diffrent Lettere in Three Diffrent Ways’ 


15 PRINT 

رو چ×ر DIM‏ 20 

30 FOR 121 TO 3 

40 READ X$CID:NEXT I 
SO N-1 

60 FOR I=2 TO 3 

70 NzN*I:INEXT I 


BO PRINT “Тһе Number of Diffrent Ways to be Acrangede*;NIPRINT 


90 FOR К1=1 TO З 

100 FOR К2=1 TO Э 

110 IF 61-22 THEN 140 

120 LET K3eé-(OK1-K2) 

130 PRINT TABCS2;X$(K10:X$CK2205 X8CK3) 
140 NEXT K2 

150 NEXT K1 

160 DATA 'A*','B','C'1END 


Arrang any three Diffrent Letters in Three Diffrent Vays 


The Number of Diffrent Uays to be Arranged= 6 


ABC 
ACB 
BAC 
BCA 
CAB 
CBA 


ملاحظة 


نلاحظ عند ايجاد قيمة K,‏ . ان مجموع الارقام الصحيحة K + K, , K ху‏ 
يساوي ستة ( 6 ) لذلك : 


K} = 6- ) ۲ + Yo) 


Mt 


وبطريهقةاخرى : 


PRINT 'Arrang any three Diffrent Letters in Three Diffrent Uays* 


PRINT 

DIM X$(3) 

FOR 1=1 TO З 
READ X$CIDO:NEXT I 
№1 

FOR 1=2 ТО З 
۱۶۱۷ I : NEXT I 


0 


= 


15 
20 
30 
40 
50 
60 
70 


80.PRINT "Тһе Number of Diffrent Ways to be Arranged=" ۲ 


90 FOR 1*1 TO З 
10 


0 FOR Jm=1 TO З 


110 IF Је] THEN 170 
120 FOR K»1 TO З 
130 IF Ке.) ОК K=I THEN 160 


150 PRINT ТАВ(5)Х8(12;Х6(.)23Х6Х(К) 
МЕХТ К 


170 NEXT ل‎ 
180 NEXT I 
200 DATA 'A','B','C'1END 


Arrang any three Diffrent Letters in Three Diffrent Ways 


Number of Diffrent Ways to be Ағгапдес- 6 


ABC 


АСВ 


ВАС 
ВСА 
САВ 
СВА 


ito 


The 


ملنسال YY)‏ ( 
اکتب برناجا 24У‏ القاسم الشترك الاعظم Greatest Common Di-‏ | 
Visor )‏ بين عددین . 


5 REM find the greatest common divisor 
10 DIM А(2),В(2,100),С(2),Т(2),Р(2,50) 
15 DIM X(2,100) 

20 4 

30 FOR 121 TO 2 

35 PRINT E 

40 INPUT АСІ) :Ү=АСІ) :6050В 300:PRINT 
50 ۷ 

60 FOR К=1 TO C(I) 

80 NEXT K 

100 K=1:M=0 

110 IF K=C(I) THEN 135 

120 IF K»CCI) THEN 160 

130 IF B(I,K)=B(I,K+1) THEN K=K+1: GOTO 110 
135 ۸ 

140 PCI,MDSsBCI,KO:KK*1 

150 GOTO 110 

160 T(I)=M 

170 NEXT I 

180 FOR 12-1 TO T(1) 

190 FOR Jz1 TO T(2) 

200 IF Р(1,12<>РХ2,.)) THEN 230 

210 MUL=MUL#P (1, 1) 


N 
250 PRINT "The gcd=" ; MUL 
260 PRINT 
290 END 
300 REM subroutine started 
310 ۶۸ 
320 FOR Ј=2 TO Y 


۱:1 


R=Y-INT(Y/J)*J 

IF (۵0 THEN 390 
X(I,V)=J:PRINT X(I,V);TAB(3); 
Y=INT(Y/X(I,V)) 

IF Y=1 THEN 400 

VzU*1:GOTO 320 

NEXT J 

RETURN 


4835858 


Ф 
о 
о 


( YY) مشال‎ 

| اذا کان ۸ Ма Мама,‏ اكب برنامجا لايجاد محدد À‏ ومن ثم ایجاد 
معكوس A‏ . باستخدام طريقه معامل المراقق . 

تتلخخص هذه الطريقة JYS‏ : - 

اذا كاذ ANIN)‏ مصفوقه مريعةو SFO‏ |4 | ء فان مصفوفة المعاملات 
المرافقة ل A‏ هی مصفوفة B(A)‏ مريعة NN‏ حيث ابدل كل عنصر فيها 
alus‏ المزافق Азда ды аты.‏ فی سور олда‏ 
الرافقة ولتکن ( 8 ) © اذن فان : ۱ 


-1, C(3) 
EU 
10 READ N 
20 DIM A(N,ND:DIM B(N-1,N-12:DIM C(N,ND:DIM МСМ, №) 
30 FOR 121 TO N 


40 FOR 21ل‎ ТОМ 
50 READ ACI,J) 


Y£v 


FOR 121 TO М 
FOR 21ل‎ TO М 


IF Р<І АМО LXJ THEN B(I-1,J-1)=A(1,J): GOTO 0 
IF PCI AND L?J THEN B(I-1,J)=A(I,J): GOTO 0 
IF Р>І AND L<J THEN В(1,.)-12-А(1,.)2: GOTO 160 
IF P>I AND L>J THEN ВСІ, Ј)=А(І,Ј) 


NEXT J:NEXT I 

FOR ۷21 TO N-1 

IF B(K,K)=0 THEN 260 

FOR Ізі Т0 М-1 

FOR JzN-1 TO 1 STEP -1 
R:I*K:T2J*K-1 

IF R»N-1 THEN 250 

IF Т>М-1 THEN 250 
B(R,T)=(—-B(R,K)/B(K,K)wB(K,T))+B(R,T) 
NEXT J:NEXT І:МЕХТ K:GOTO 340 
FOR X-K TO N-1 

IF B(X,K)=0 THEN 310 

FOR F=K TO N-1 
B(K,F)=B(X,F)+B(K,F) 

NEXT F:GOTO 190 

NEXT X 


NEXT K 

Y=1 

FOR I=1 TO М-1 
۲۴٢۳۲ i, 1? ۷ 

NEXT I 
C(P,L)=(-1)“(P+L)wY 
NEXT L:NEXT P 

7-0 

FOR Ј=1 TO М 
7-2%А(1,.2/2%С(1,.) 


NEXT J 

PRINT "The Value of the determent is z';Z:PRINT 

IF 72-0 THEN PRINT "This Matrix has not haue invers':END 
FOR 1-1 ТОМ 

FOR J=1 TO М 

6 وج 

NEXT Ј:МЕХТ I 

PRINT :PRINT ۰ THE INVERS MATRIX ۷۲ 


۱:۸ 


470 FOR 121 TO N 
480 FOR J=1 TO N 
490 PRINT МСЈ, І); 
500 NEXT J:PRINT 
510 NEXT I 
520 DATA2,1,0,-1,1 


The Matrix is 
0 1 
56 
91 
Value of the determent is =-114 


THE INVERS MATRIX IS 


.42982456-.078947368 .043859649 
-.25438596 .026315789 .096491228 
۰14035088 .15789474-.087719298 


( Yt ) شال‎ 

: وذلك باستخدام الصيغة التالية‎ A اکتب برناجا لايجاد معکوس الصفوفة‎ ٠ 
ایضا مصفوفة‎  P(N*N) ۱ مصفوفة مربعة وان‎ (МЕМ) اذا كان‎ 
Р ای ان الطلوب هو اجاد الصفوفة‎ . "= P فان‎ AP = مربعة وان‎ 


10 REM FIND THE INVERSE OF А MATRIX 
15 КЕМ USING THE IDENTITY MATRIX 

17 READ N 

20 DIM A(2xN,2xN) 

30 FOR 1-1 TO N 

40 FOR 21ل‎ TO М 

S0 READ ACI,J) 

60 NEXT J:NEXT I 

70 REM PUT IDENTITY MATRIX 


۱1۹ 


80 ۷۷ 

90 FOR 121 TO М 

100 FOR J=N+1 TO МІ 

110 A(I,J)=0 

120 NEXT ل‎ :NEXT I 

130 FOR 121 TO N 

140 A(I,I+N)=1:NEXT I 

150 REM THE MATRIX AND COULOM VECTOR" 


PRINT 
170 PRINT 'THE MATRIX I 
PRINT ° r 


190 FOR 12-1 TO N 
200 FOR J=1 TO NI 
210 PRINT ACI,.0; 
220 NEXT J:PRINT:NEXT I 
230 REM FIND INVERS MATRIX 
240 FOR 1-1 ТОМ 
250 P-ACI,I) 
260 IF P-0 THEN GOSUB 440 
270 FOR J=1 TO NI 
280 ACI,J)2ACI, J)/P 
NEXT J 


300 FOR К=1 TO М 

310 IF 126 THEN 340 

315 Р-А(К,102:ҒОЕ 21 TO NI 

320 A(CK,LOSACK,LO-ACI,L)«P 
NEXT L 


340 NEXT K 

345 NEXT I:PRINT 

350 PRINT ' INVERES MATRIX" 
360 PRINT "—— cnr : 
370 FOR 1=1 TO М 

380 FOR J-N*1 TO NI 

390 PRINT ACI, (ل‎ ۶ :NEXT ل‎ 

400 PRINT 


420 DATA 1,0,-1,1 
END 


۱6۰ 


440 КЕМ SUBROUTINE STARTED 
700 FOR K=I+1 TO N 

210 FOR J=K-1 TO NI 

720 IF A(K,J)=0 THEN 800 
730 V=A(I,J):A(I,J)=A(K,J) 
732 A(K,J)=V 

740 NEXT J 

800 NEXT K 

805 U=B(I):B(I)=B(I+1):B(I+1)=U 
810 PzACI,I) 

820 RETURN 


THE MATRIX 


INVERES MATRIX 


( Yo ) JU 
بطريقة معکوس.‎ Ne N اكتب برنامجا لحل مجموعة معادلات من الدرجة‎ 
. المصفوفة‎ 
X-A'B فان‎ AX = B اذا كان‎ 
: ) هي مصفوفة العاملات ( معاملات الجاهیل‎ А حيث‎ 
844 42%. رو‎ 
а- 1921 “2 چو‎ 


Sy оо ам 


ALA) 


وات( و فا و X.‏ و Хош (х,‏ عمود الجاهیل و 
B = (b,b, МЕТІН b, )‏ عمود الكميات المطلقة . 
DIM А(10,20),8В(10),Х(10)‏ 
READ N‏ 


FOR 1=1 TO М 
FOR.J-1 TO N 
READ ACI,J) 
NEXT J:NEXT I 
FOR 121 TO N 
READ ВСІ) 
NEXT I 


- REM PUT DIAGONAL. MATRIX 


МІ-2жМ 

FOR 121 TO М 

FOR J=N+1 TO МІ 

A(I,J)=0 

NEXT J :NEXT I 

FOR I=1 TO N 

ACI, I+N)=1:NEXT I 

REM THE MATRIX AND COULOM ۰ 


PRINT 

PRINT "А МАТКІХ B(I)° 
PRINT "=-= I 
FOR I=1 TO N 

FOR 21ل‎ TO NI 

PRINT А(1,.0; 

NEXT J:PRINT TAB(20);B(I) 
PRINT 

NEXT I 

REM FIND INVERS MATRIX 

FOR I=1 TO N 

P=A(I,I) 

РВІМТ "РА=* ;Р 

IF Р=0 ТНЕМ 605۱8 0 

FOR 21ل‎ ТО МІ 

ACI DACI, (۳ 

NEXT J 

FOR K=1 TON 

IF 12۳۴6 THEN 400 

P=A(K,1) ` 


۱۲ 


370 FOR ۱21 МІ 
380 A(K,L)=A(K,L)-ACI,L)#P 

390 NEXT L 

400 NEXT K ۱ 
405 FOR J=1 TO М ! 
406 FOR M=1 TO NI 


407 PRINT АСЈ,М) ; :МЕХТ M:PRINT TAB(20);B(J):PRINT:NEXT J 


410 NEXT I 
420 PRINT ° INVERES MATRIX" 
430 PRINT "----------- 


440 FOR 1=1 TO М 
450 FOR J-N*1 TO NI 
460 БЕІН ACI J) :NEXT ل‎ 


$10 FOR J-N*i TO NI 
520 T 810 


960 PRINT ”----------------------- : 
570 FOR I=]. ТОМ 

580 PRINT ۳۳6۲ 19 ۰ (2۰ ХІ) 

590 PRINT š 
600 NEXT I 

610 DATA 3 

620 DATA 1,1,2,0,1,-3,0,0,5,1,-3,10 
630 END 

700 PRINT'I=";I:FOR K=I+1 TO М 

710 FOR J-K-1 TO NI 

720 IF A(K,J)=0 THEN 800 

730 V=A(I,J):ACI,J)=A(K,J) 

732 A(K,J)=V 

740 NEXT J 

800 NEXT K 

805 U=B(I)+B(I)=BCW(I+1):B(I+1)=U 

810 P=A(I,I):PRINT" ` -':P 

820 RETURN 


۱۰۳ 


شال (۲۱) ۱ 
اكتب برناجا في الاحصاء لقراءة مجموعتان ) S. ۷ ) 21 ( , X(N‏ ايجاد : 
١‏ -المعدل لکل مجموعة . 
Y‏ - معامل الارتباط . 
Y‏ الانحراف القياسي . 
۰ 6 -معامل الانحراف . 
lo 7‏ معادلء الانهدار . 


Yot 


360 PRINT” ';TAB(100;" ';TAB(25)0;" ' 
(2 FOR Ізі TO N 

380 PRINT 1۶ ۲۵8410۱ ۶61۱ : ۲۵6) 25( YC IO 

390 МЕХТ І f 


400 :NPUT'DO YOU HAVE TO CHANGE ANY DATA PUT Y FOR YES OR N FOR قمر ریم‎ 


410 IF АӨз"Ү"ОЯ ۸۵۰۰۱۲۲ THEN 430 

420 GOTO 500 

430 INPUT'PUT THE NO OF ROV TO BE CHANGED ۴ 
440 IF F>N THEN 430 

450 INPUT 'THE VALUE OF X АМО Y'4X(FO,YCF) 
460 INPUT'DO YOU HAVE ANY OTHER CHANGE PUT(Y) OR ۵۶ 
470 IF A$-'Y' OR A$-'Y' THEN 430 

480 GOTO 345 

500 5Х-0:5Ү-0:ХҮ-0:Х02-0:Ү(0-0:0Х-0:0Ү-0 

510 FOR 121 TO N 

520 5Х-5Х%Х(1) 

530 SY=SY+Y(I) 

540 XY=XY+X(I)wY(I) 

550 XQ=XQ+X(I)wY(I) 

560 ۷۵۷۰۵۸+۷۰ (۷ ۰( 

مم فی 570 


580 КЕМ AX:AVRAGE OF X 

590 REM AY:AVRAGE OF Y 

600 AX-SX/N:AY-SY/N 

620 REM FIND CORRELATION OF COFF. 
630 Ві-ХҮ-МжАХжАҮ 

640 R2-SQR(COXQ-NXxAX^2) x ( YQ-NXAY^2)) 
650 22۵2 

660 REM DY=STANDARED DVIATION OF X 
670 КЕМ UV-Z:ANDARED DVIATION OF Y 
675 DX-2SQR(CXQ-NXAXXAX) / CN) 

680 DY-SQK:YQ-NxAYxAY2)/CGN) 

690 REM CVzCOFFICIENT OF 

700 ۷ ۵ 

710 B=(XY-(SX*SY/N))/(XQ-(SX“2/N)) 
720 А-АҮ-ВжАХ 


730 КЕМ PRINT IHE RESULTS 
810 SCREEN 3,2,2:С15 
312 COLOR З 


820 LINE (0,02-<319,190),4.В 


loo 


FOR 1=1- TO 20:РКІМТ ' ж"; : МЕХТ I 

FOR 1=1 ТО 18:LOCATE O,I:PRINT'*':NEXT I 
FOR 1-0 TO 19 

LOCATE I,18:PRINT'x';:NEXT I 

FOR 121 TO 17:1 ОСАТЕ 19,I:PRINT 'x':NEXT I 
COLOR 5 

LOCATE 2,2:PRINT'AXz' ; АХ 

LOCATE 2,3:PRINT'AYz';AY 

LOCATE 2,4:PRINT'Rz*;R 

LOCATE 2,5:PRINT'DXz*;DX 

LOCATE 2,6:PRINT'DY-';DY 


990 


1000 LOCATE 2,?:PRINT'CV-"';CV 

1005 LOCATE 2,9:PRINT'EQU.OF LIN.REG IS " 
1008 LOCATE 2,12 

1010 PRINT 'Yz';A;'*';B'X" 

1100 DATA 25,35,10,44,25,56,25,10,35,35 
1110 DATA 7,17,25,34,10,28,45,41,7,1 
1112 FOR I-1 TO 1000:NEXT I 
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